ADO Tabelle per Code Sperren und freigeben

[sventeq]

Hallo zusammen,
ich habe ein Programm an dem mehrere Benutzer gleichzeitig arbeiten, daher muss ich eine Tabelle sperren und nach ablauf eines Algorithmus wieder freigeben. Ich hab hier schon gelesen, dass das per Lock funktionieren soll. Hat da jemand wohl einen Code? Hab ich hier leider nicht gefunden

Delphi-Quellcode:

 
  programmdb.ADOEintragsID.Open;
  
  programmdb.ADOEintragsID.First;
  eintragsID:=programmdb.ADOEintragsIDID.Value;

  programmdb.ADOEintragsID.Delete;
  try
    programmdb.ADOEintragsID.insert;
    programmdb.ADOEintragsIDID.Value:=eintragsID+1;
    programmdb.ADOEintragsID.Post;
  except
    MessageDlg('Fehler', mtError, [mbOK], 0);
  end;

  programmdb.ADOEintragsID.Close;

Während dieser Procedure muss ich die Tabelle ADOEintragsID sperren und wieder freigeben.
Wäre für jede Hilfe sehr dankbar