[Lazarus-es] Campo Float en DBGrid

[Anxo Vázquez]

Tengo una bd SQLite en la que hay definido varios campos decimales. Capturo
los datos en las celdas de un DBGrid, el primer dato número corresponde a
un integer que captura sin problemas, estos aparecen en la celda del campo
siguiente, lleva asociado un evento OnChange, ya que al introducir un
número da un mensaje diciendo que 12 no es un Float. Este es el código.

procedure TfrmPedVen.ZqryLinPedvpesoChange(Sender: TField);
begin
   if (dbgLinFac.DataSource.DataSet.FieldByName('bultos').AsInteger <>
null) and (dbgLinFac.DataSource.DataSet.FieldByName('peso').AsInteger <>
null) then
     begin
       dbgLinFac.DataSource.DataSet.FieldByName('cantidad').AsFloat :=
dbgLinFac.DataSource.DataSet.FieldByName('bultos').AsInteger *
dbgLinFac.DataSource.DataSet.FieldByName('peso').AsFloat;
       dbgLinFac.DataSource.DataSet.FieldByName('precio').AsFloat :=
 ZqryArt.FieldByName('pv').AsFloat;
       dbgLinFac.DataSource.DataSet.FieldByName('importe').AsFloat :=
dbgLinFac.DataSource.DataSet.FieldByName('cantidad').AsFloat *
dbgLinFac.DataSource.DataSet.FieldByName('pv').AsFloat;
       dbgLinFac.DataSource.DataSet.FieldByName('num_serie').AsString :=
cbxSerie.Text + edNum.Text;
     end;
end;

El error salta en la celda que captura el peso.

Saludos y muchas gracias.
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20130228/0fc382e5/attachment-0002.html>