procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Caption:=datetimetostr(now());
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Button2.Caption:=datetostr(date());
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Button3.Caption:=timetostr(time());
end;