[MegaPiha]

Код:

procedure TForm1.FormCreate(Sender: TObject);
Var str:string;
begin
   str:=FormatDateTime('ss',Time);
   label1.Caption:=str;
end;

Только эта функция высветит секунды, а идти время не будет.