[whatson]

Buenos dias a Todos. Les pido su colaboracion para resolver este problema que tengo con la suma en las columnas de cantidad de articulos e Importe.
No he podido colocar estos valores en sus respectivos LabelImporte y LabelCantArticulos, ademas de ponerme un error "incompatible types" en la linea del While.

Cualquier comentario al respecto Me sera de mucha Utilidad
De antemano Muchas gracias.

procedure TFormPrincipal.DBGrid11KeyPress(Sender: TObject; var Key: Char);
begin
  If Key = #13 then  //  Si se pulsa la tecla ENTER en el Grid
      begin
          if DBGrid11.Fields[1].Value = Null then
                  DBGrid11.Fields[1].AsFloat := 1; // CANTIDAD
                  if DBGrid11.Fields[1].Value = Null  then
                     DBGrid11.Fields[4].AsFloat := 0; // PRECIO UNITARIO
                     DBGrid11.Fields[5].AsFloat := DBGrid11.Fields[1].AsFloat * DBGrid11.Fields[4].AsFloat; // IMPORTE
                     LabelImporte.Caption := '0';
                     LabelCantArticulos.Caption := '0';
                     DataSourcePartVta.DataSet.First; // primer registro
                    While DataSourcePartVta.DataSet.EnableControls = False do
                      begin
                          DBGrid11.Fields[5].AsFloat:= DBGrid11.Fields[1].AsFloat * DBGrid11.Fields[4].AsFloat;
                          LabelImporte.Caption:=FloatToStr(DBGrid11.Fields[5].AsFloat + StrToFloat(LabelImporte.Caption));
                          LabelCantArticulos.Caption:=FloatToStr(DBGrid11.Fields[1].AsFloat + StrToFloat(LabelCantArticulos.Caption));
                          DataSourcePartVta.DataSet.Next; // siguiente registro
                      end;
                  end;
      end;
end.