Как обратиться к текущему объекту в Delphi?

Я даю длинные имена объектам (кнопкам, панелям и т. д.) в Delphi, чтобы мой проект оставался аккуратным.

Например, имя кнопки может быть A_Button_That_Saves_Settings_To_Regedit.

В этом случае кодирование с длинным именем раздражает.

Ключевое слово Self относится к форме.

Есть ли в Delphi ключевое слово, которое относится к текущему объекту?

Например:

procedure TForm1.Image1OnClick(Sender: TObject);
begin
  [keyword that refers to "Image1"].Picture.Graphic := [Something];
end;

or

procedure TForm1.Label1OnMouseEnter(Sender: TObject);
begin
  [keyword that refers to "Label1"].Font.Color := RGB(255,255,255);
end;