[[egostar]]

Primero que nada, lo que yo creo es que estas trabajando con TDateTimePicker o con MonthCalendar y borraste la propiedad Date. Por eso te la deja como 31/12/1899.

En tiempo de ejecución pon lo siguiente:

Código Delphi [-]
//si estas usando un DateTimePicker
procedure TForm1.FormShow(Sender: TObject);
begin
   DateTimePicker1.Date := Now;
end;

//si estas usando un MonthCalendar
procedure TForm1.FormShow(Sender: TObject);
begin 
   MonthCalendar1.Date := Now;
end;

Salud OS.