procedure TForm1.ShowInTransaction;
begin
if DBIsamDatabase1.InTransaction
   then Label2.caption:='InTransaction = True'
   else Label2.caption:='InTransaction = False';
end;

procedure TForm1.FormShow(Sender: TObject);
begin
DBIsamSession1.Active:=false;
Engine.TableTransLockRetryCount:=500;

DBIsamTable1.Active:=true;
DBIsamTable2.Active:=true;
DBIsamTable3.Active:=true;

TblList:=TStringList.create;
ShowIntransaction;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TblList.Clear;
TblList.Add('Table1');
TblList.Add('Table2');

with DBIsamDatabase1 do
     begin
     if InTransaction then RollBack;
     StartTransaction(TblList);
     end;
ShowInTransaction;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
with DBIsamDatabase1 do
     if InTransaction then RollBack;
TblList.free;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
TblList.Clear;
TblList.Add('Table3');

with DBIsamDatabase1 do
     begin
     if InTransaction then RollBack;
     StartTransaction(TblList);
     end;
ShowInTransaction;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
with DBIsamDatabase1 do
     if InTransaction then RollBack;
ShowInTransaction;     
end;