[Lotles]

Почему здесь ошибку выдает ?

Код:

public
procedure ShowHint();

procedure TForm1.ShowHint;
begin
StatusBar1.SimpleText:=Application. Hint;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Application.OnHint:=ShowHint;
end;