Ayuda con esta Función

[Lord Delfos]

Bueno, usando la función IsValidDate:

Código Delphi [-]
uses DateUtils;

function IsValidDate(Anio, Mes, Dia): Boolean;

Así que yo haría algo así:

Código Delphi [-]
function CIEsValido(const CI: string): Boolean;
begin
  Result:= (Length(CI) = 11) and
           IsValidDate(StrToInt(Copy(CI, 0, 2)), StrToInt(Copy(CI, 2, 2)), StrToInt(Copy(CI, 4, 2))) and
           LosUltimosDigitosSonValidos;
end;

Por supuesto, habría que estar atento a cómo hace IsValidDate para manejar años con dos cifras.

Saludongos.

EDIT: Dado que siempre que se le pida al usuario ingresar números, éste va a ingresar LETRAS (el 100% de las veces ), también sería conveniente validad antes de hacer los StrToInt.