Foros Club Delphi - Problemas para sumar en TDBGrid

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.

Código:

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.