[jachguate]

asi:

Código Delphi [-]
var 
  FechaInicial: TDateTime;
begin
  FechaInicial := DateTimePicker1.Date;
  //más cosas
end;

Hasta luego.