اظهار تاريخ والوقت -DELPHI-

procedure TForm1.Button1Click(Sender: TObject); //si
begin

Label1.Caption := DateTimeToStr(Now); //de
Label2.Caption := TimeToStr(Time); // del
Label3.Caption := DateToStr(Date); // delp

{
Label1.Caption := DateTimeToStr(now); // delph
Label2.Caption := TimeToStr(now); // delphi
Label3.Caption := DateToStr(now); // d
}

end; // 111dz