Private

{ 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;

Внутри процедуры напиши следующее: