[roamer]

Код:

procedure TForm1.FormCreate(Sender: TObject);
Var
  i : integer;
begin
  for i:=0 to (Form1.ComponentCount-1) do
   begin
     if (Form1.Components[i] is TDateTimePicker) then begin
        (Form1.Components[i] as TDateTimePicker).DateTime:=NOW;
     end;
  end;
end;