Locking/Locked records

Anyone know of a really elegant solution for locking simple tables
using the BDE.  At first glance at the online help, I see NOTHING
whatsoever about locking, contention, etc.  I'm not looking for
anything grand, just something simple that doesn't envolve
an exception block.   What would be really nice would be
something like:

   if Table1.FindKey([whatever]) then
      if Table1.Locked then
         { popup a dialog or something...}
     else
     begin
         Table1.Locked := True
            { do my thing...}

I guess I'm still in a FoxPro frame of mine looking for something like
this.  I'm thinking of converting a FoxPro app to Delphi but I'd like to
explore some simple strategies first.

Thanx,
--jeff.