Delphiで現在の時刻や日付を取得するには、Now()関数を用います。
現在の時刻を表すTDateTime型を返します。
procedure TForm1.Button1Click(Sender: TObject); var dt:TDateTime; begin dt:=Now; Edit1.Text:=DateTimeToStr(dt); end;