Como soluciono esto?

[roman]

StrToDate lanzará una excepción en caso de que la cadena no represente una fecha válida así que más bien podrías manejar la excepción para determinar si es o no correcta. Por ejemplo, esta función

Código Delphi [-]
function IsValidDate(S: String): Boolean;
var
  Date: TDate;

begin
  Result := true;

  try
    Date := StrToDate(S);
  except
    on EConvertError do
      Result := false;
  end;
end;

Sin embargo toma en cuenta que una misma cadena dada puede ser o no una fecha válida dependiendo de la configuración regional del sistema; específicamente de las variables globales DateSeparator y ShortDateFormat.

// Saludos

[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 ...

[roman]

Empezado por LordSigma

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

Muy sencillo. Utiliza la etiqueta [delphi] que te reserva las indentaciones y te colorea automáticamente el texto. Al principio de cada foro hay un aviso que habla acerca de ello. Ahora me tomé la libertad de editar tu mensaje para colocar las etiquetas. Entra a editarlo para que veas cómo se usan.

// Saludos