[[oscarac]]

Lo solucioné de esta forma

con un procedimiento y un formulario

aqui el codigo del procedimiento

Código Delphi [-]
Function _PedirFecha(Dato : String) : String;
var dtInicio, dtFin : TDate;
begin
  Establecerfechas(dtInicio, dtFin,0);
  with TfrmFechaMigracion.Create(nil) do
    begin
      dtFecha.MinDate := dtInicio;
      dtFecha.MaxDate := dtFin;
      btnAceptar.ModalResult := mrOk;
      btnCancelar.ModalResult:=mrCancel;
      lblTitulo.Caption := Dato;
      Showmodal;
      if ModalResult = mrOK then
        Result := DateToStr(dtFecha.Date)
      Else
        Result := '';
      Free;
    end;
end;

y en el formulario coloque un DateTimePicker

y luego este codigo

Código Delphi [-]
procedure TfrmFechaMigracion.btnAceptarClick(Sender: TObject);
begin
  ModalResult := mrOk;
end;

procedure TfrmFechaMigracion.btnCancelarClick(Sender: TObject);
begin
  ModalResult := mrCancel;
  Close;
end;

y listo

lo dejo en caso a alguien le pueda servir