procedure TDemoForm.BtnEditClick(Sender: TObject);
begin
  FArtikel.Show;
    with FArtikel do
      begin
      QArtikel.Edit //Änderungsmodus
      EditBez1.Text := QArtikel.FieldByName('ArtBez1').AsString;
      ...
      EditEKpreis.Text :=
      FloatToStr(QArtikel.FieldByName('EKpreis').AsFloat);
      EditVKbrutto.Text :=
      FloatToStr(QArtikel.FieldByName('VKbrutto').AsFloat);
      EditAbest.Text :=
      FloatToStr(QArtikel.FieldByName('Anfangsbestand').AsFloat);
      ...
   end;