Comprobación del formato de fecha

[[Caral]]

Hola
No se si esto servira pero para validar dos fechas de dos DTPicK yo lo hago asi:
En El evento del DTPick ( OnCloseUp ):

Código Delphi [-]
procedure TFRepDatos.DTP2CloseUp(Sender: TObject);
begin
   If DTP2.Date < DTP1.Date then
   begin
      MessageDlg('Fecha del fin no puede ser menor que fecha de inicio.',mtError,[mbOK],0);
      DTP2.DateTime := DTP1.DateTime;
   end;
end;

Con esto la primera no puede ser mayor que la segunda fecha.
Tal Vez sirva
Saludos