没人顶，我自己来：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
statusbar2.Panels[2].text:=formatdatetime('YYYY-MM-DD HH:MM:SS',now);
end;