Como soluciono esto?

[LordSigma]

Lo que dijo roman es excelente, yo ademas le agregaria lo siguiente :

Código Delphi [-]
function IsValidDate(S:String): Boolean;
var Date: TDate;
     // Donde guardo la configuracion original del sistema.
     ShortDateFormatOriginal: String; 
 
begin
 
  Result := true;
 
  try
 
    // Guardo la configuracion original del sistema.
    ShortDateFormatOriginal := ShortDateFormat;
 
    // Configuro el formato de fecha segun lo quiero validar.
    ShortDateFormat := 'mm/dd/yyyy' 
    // O la configuracion de dia/mes/año que utilizas.
 
    try
      Date := StrToDate(S);
    except
      on EConvertErrordo
        Result := false;
    end;
 
  finally
 
    // Reestablezco la configuracion original del sistema.
    ShortDateFormat := ShortDateFormatOriginal;
 
  end;
 
end;

Perdon pero no se formatear el texto como hizo roman para que aparezca como codigo Delphi, si alguien me puede dar una mano ...