Commit geht nicht (SQL)

[Hansa]

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  i := 1;
  StringGrid1.fixedColor := clBtnFace +10;
  StringGrid1.Col := i;
(*
if StringGrid1.Options = goFixedVertLine then
StringGrid1.GridLineWidth := 0;
*)
  StringGrid1.Cells [0,1] := IntToStr (i)+'.';
  StringGrid1.Cells [1,0] := 'Art.Nr.';
  StringGrid1.Cells [2,0] := 'Art.Bez.';
  ...
  RecDataMod.Transaction.StartTransaction;
  LabeledEdit1.SetFocus;
end;