如何获得系统时间？？？

Question

如何获得系统时间（要分秒）？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
   temp:string;
begin
    temp:=timetostr(now);
    showmessage(temp);
end;

Answer 2

如果还要日期，应该是
procedure TForm1.Button1Click(Sender: TObject);
var
   temp:string;
begin
    temp:=datetimetostr(now);
    showmessage(temp);
end;

Answer 3

var year,month,day:word;decodedate(now,year,month,day);
lable1.Text :=inttostr(year)+'年'+inttostr(month)+'月'+inttostr(day)+'日';