[NCD]

Только, по-моему, это лишнее действие:

Код:

procedure TForm1.FormCreate(Sender: TObject);
Var str:string; // лишнее
begin
   str:=FormatDateTime('ss',Time); //лишнее
   label1.Caption:=str;
end;

т.е. :

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
   Label1.Caption := FormatDateTime('ss', Time);
end;

так ведь тоже работает