Grabar En SQL Campos Decimales, Solo me graba enteros? Con Codigo

[[Caral]]

Hola
Realmente no se que pasa pero????
Cuando tengo un problema que no puedo resolver trato de ver que pasa el el codigo sql dando un mensaje asi:
Debajo del codigo que me da el Problema:

Código Delphi [-]
Begin
AdoTable1.Insert;
AdoTable1.Fields.FieldByName('Numero').AsString := Label8.Caption;
AdoTable1.Fields.FieldByName('Codart').AsString := Data.Cells[0,Fila];
AdoTable1.Fields.FieldByName('Desart').AsString := Data.Cells[1,Fila];
AdoTable1.Fields.FieldByName('Almacen').AsString := Data.Cells[2,Fila];
AdoTable1.Fields.FieldByName('CantDesp').AsFloat :=Strtofloat(Data.Cells[6,Fila]);
// este mensaje se usa para saber si el sql envia la informacion que quiero      
Showmessage(AdoTable1.Fields.FieldByName('CantDesp').AsFloat :=Strtofloat(Data.Cells[6,Fila]);
//
// AdoTable1.Fields.FieldByName('CantDesp').AsFloat :=Strtofloat(edit1.Text);
AdoTable1.Fields.FieldByName('Anulado').AsString:='0';
AdoTable1.Fields.FieldByName('Factura').AsString := Label4.Caption;
AdoTable1.Post;
End;

Ta vez veas que pasa
Saludos