{ Private declarations }
procedure ShowHint(Sender: TObject);
Имя процедуры может быть и другим (например MyShowHint) но параметр должен быть именно такой.
Теперь нажми Ctrl+Shift+C чтобы Delphi создал заготовку для процедуры:
procedure TForm1.ShowHint(Sender: TObject);
begin
end;
Можешь и сам написать этот текст, но только после текста { TForm1 } или ещё дальше после какой-нибудь процедуры:
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.ShowHint(Sender: TObject);
begin end;
Внутри процедуры напиши следующее: