Взаимодействие копий программы

//-----------------Условная "Блокировка" объекта, id - ключевое поле объекта
// Result=0 - объект захвачен нами,  =1 - объект занят, =2 - прочие ошибки 
function LockObject(id:integer):integer;    
begin   
ExecSql('begin;');     //---начинаем транзакцию
Result:=0;glid:=id;    //---записываем id в глобальную переменную (или в форму, если она есть)
try 
ExecSql('select lockstamp from r_objects where id='+IntToStr(id)+' for update;');   //---блокировка записи
except  on E:EPQdatabaseError do
    begin
    ExecSql('rollback');ShowMessage(E.Message);Result:=2;exit; //---если есть ошибки - откат и разблокировка записи
    end;
end;    
//---получаем время в секундах, прошедшее с последней записи
x:=SelectOneFloatValue('select cast(extract(epoch from now())-extract(epoch from lockstamp) as float8) from r_objects where id='+IntToStr(id)+';'); 
if (IsNAN(x)=true) or (x>40) then   //---если прошло больше чем 40 секунд - считаем, что объект освобождён.
    begin
    ExecSql('update r_objects set lockstamp=now() where id='+IntToStr(id)+';'); //---Записываем текущее время
    ExecSql('commit;');Timer1.Interval:=15000;Timer1.Enabled:=True;exit;        //---Запускаем таймер на 15 секунд, объект захвачен нами
    end;
ExecSql('rollback');Result:=1;  //---Объект занят, откат
end;    
    
procedure TMainForm.Timer1Timer(Sender: TObject);   
begin   
ExecSql('begin;');  
ExecSql('update r_objects set lockstamp=now() where id='+IntToStr(glid)+';');   //---Перезаписываем время
ExecSql('commit;'); 
end;

BeginTransaction(_mdb);
ExecSql(_mdb,'update r_objects SET lockstamp=Now()::timestamp where id='+IntToStr(id)+';');
Commit(_mdb);