取得当前时间怎么办？用哪个函数啊

Question

取得当前时间怎么办？用哪个函数啊
另外不知哪位大哥做FLASH的播放器啊，给点源码吧，多谢！

Answer 1

Now 就是當前時間了時間 := Now;

Answer 2

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

Answer 3

FLASH的播放器用active控件！！