[ecfisa]

Esto lo convierte:

var
FStr: string;
Fecha: Date;
begin
with Grid do
FStr:= Copy(Cells[0,aRow],1,2) + '/' + Copy(Cells[0,aRow],3,2) + '/' +
Copy(Cells[0,aRow],6,4);
Fecha:= StrToDate(FStr);
end;