try
PsqlDataModule.DataModuleConn.StartTransaction;
PsqlDataModule.ls.ExecSQL;
PsqlDataModule.DataModuleConn.Commit;
result := true;
except
PsqlDataModule.DataModuleConn.Rollback;
result := false;
end;
try
PsqlDataModule.DataModuleConn.StartTransaction;
PsqlDataModule.ls.ExecSQL;
PsqlDataModule.DataModuleConn.Commit;
result := true;
except
PsqlDataModule.DataModuleConn.Rollback;
result := false;
end;