Hast du das schon gemacht:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
DateTimePicker1.DateTime:=Now;
end;
PS: Deine Frage ist schwer verständlich! Wäre vielleicht besser, wenn du ab und zu auch mal einen Großbuchstaben verwenden würdest und nicht alles in einen Satz packst!