Wie einem Button einen Hinweis in der StatusBar zuweisen?

[bis]

Das in die Form-Create :

Code:

procedure TMainForm.FormCreate(Sender: TObject); 
begin 
  Application.OnHint := DisplayHint; 
end;

Diese Procedure als Public deklarieren :

Code:

procedure TMainForm.DisplayHint(Sender: TObject);       
begin 
  StatusBar.SimpleText := GetLongHint(Application.Hint);
end;

Jetzt schreibst Du zu jeder Komponente in die Eigenschaft Hint den Text der in der Statuszeile erscheinen soll.