Как сделать так, чтобы в TLabel отображались текущее системное время?

[Bill Gates]

Желательно, чтобы отображались и секунды.

[Ins]

Так в чем проблема? Обновляй себе лэйбл по таймеру. FormatDateTime функцию можно еще в справочке глянуть...

[Terran]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := TimeToStr(Now)
end;

или можешь вот так

procedure TForm1.Timer1Timer(Sender: TObject);
var
ST: TDateTime;
S: String;
begin
ST:= Now; // for TDateTime
S:= DateTimeToStr(Now); // for String;
Label1.Caption:=(s);
end;

[Alter]

Проще:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := TimeToStr(Time)
end;