Algoritmo!!!

[roman]

Prueba con esta función:

Código Delphi [-]
function EsFechaValida(S: String): Boolean;
var
  Y, M, D: Word;
  Fecha: TDateTime;

begin
  Y := StrToIntDef(Copy(S, 1, 2), 0);
  M := StrToIntDef(Copy(S, 3, 2), 0);
  D := StrToIntDef(Copy(S, 5, 2), 0);

  if Y*M*D > 0 then
    Result := TryEncodeDate(Y + 1900, M, D, Fecha)
  else
    Result := false;
end;

Y por cierto, trata de dar títulos más descriptivos para tus mensajes.

// Saludos

[AntonioG]

Hola,

Basandome en lo que puso roman y en algo que viene en la ayuda de CBuilder, para CBuilder seria asi:

void __fastcall TForm1::Button1Click(TObject *Sender)

{
  TDateTime dt;
  AnsiString  fecha;//<--aqui va la fecha

  try
  {
    dt = EncodeDate((Word)StrToInt("19"+fecha.SubString(1,2)), (Word)StrToInt(fecha.SubString(3,2)), (Word)StrToInt(fecha.SubString(5,2)));
    Label1->Caption = DateToStr(dt);
  }
  catch(...)
  {
    Application->MessageBox("Invalid day, month, or year.", "EncodeDate Example", MB_OK);
  }
}

En fecha va primero el año, luego el mes y leugo el dia, pro eemplo:
fecha="810227";


Saludos
P.D. La linea
Label1->Caption = DateToStr(dt);
la puedes quitar.