Delphiで現在の時刻や日付を取得するには、Now()関数を用います。

書式

現在の時刻を表すTDateTime型を返します。

コード例

procedure TForm1.Button1Click(Sender: TObject);
var
  dt:TDateTime;
begin
  dt:=Now;
  Edit1.Text:=DateTimeToStr(dt);
end;