public
    procedure DisplayHint(Sender: TObject);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.DisplayHint(Sender: TObject);
begin
  StatusBar1.Panels.Items[0].Text:= Application.Hint;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels.Items[1].Text:= TimeToStr(Time);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.ShowHint:= True;
  Application.OnHint:= DisplayHint;
  //Yukarıdaki iki satır kodlamadan sonra;
  Form1.Hint:= 'İfade1| İfade2'; // " | " işareti klavyedeki Alt Gr + < (>) tuşu ile
  //elde edilir (bilmeyenler için).
  Form1.ShowHint:= True; // olursa (hazır değer False),
  //StatusBar1.Panels.Items[0].Text'de İfade2, Form üzerinde İfade1 görülür.
  //Bunu Object Inspector'de Formun Hint özelliğine de yazabilirsiniz.
  //ShowHint True yaparsanız;
  //Form1.Hint:= 'İfade1| İfade2';
  //Form1.ShowHint:= True; kısmını kodlamanıza gerek kalmaz.
  //Object Inspector'de StatusBar1'ın Panels özelliğini kullanarak
  //StatusBar1.Panels.Items[0] için Width (formunuzun büyüklüğüne göre) 350 - 650 arası
  //StatusBar1.Panels.Items[1] için Width 52 olabilir.
  //Daha fazla Item varsa, ona göre ayarlama yapmalısınız.
end;