[[egostar]]

No quisiera decirlo pero creo que hay otro error en tu sentencia.

Código Delphi [-]
AdoTable1.Fields.FieldByName('CantDesp').AsString :=Strtofloat(Data.Cells[6,Fila]);

//debería ser 

AdoTable1.Fields.FieldByName('CantDesp').AsString := Data.Cells[6,Fila];

Saludos.