[Tal]

Asegurate de que Afecha vale '201207' y luego y por si acaso que está en buen formato.

function CadAFec(const AFecha:string):TdateTime;
var
     cad : string;
begin
      cad := Afecha[1]+Afecha[2]+'/'+Afecha[3]+Afecha[4]+'/'+
                Afecha[5]+Afecha[6]+Afecha[7]+Afecha[8]);
      result := strtoDatetime(cad);
end

Ahora no recuerdo si los strings comienzan por 1 o por cero pero es tocar un valor arriba o uno abajo.

También puedes usar esta función que le pasas el formato de la fecha
StrToDateFmt(Afecha,'ddmmyyy');

Prueba a ver que tal.

Un saludo.