The following example was adapted from the BDE32.HLP file, located in the Borland/CommonFiles/BDE directory: implementation

{$R *.DFM}
uses DbiTypes, DbiProcs;
function fDbiFormFullName(Tbl: TTable): String;
var
  Props: CurProps;
  Buffer  : array[0..DBIMAXPATHLEN] of char;
  Buffer2 : array[0..DBIMAXPATHLEN] of char;
begin
  Check(DbiGetCursorProps(Tbl.Handle,Props));
  StrPCopy(Buffer , Tbl.TableName);
  Check(DbiFormFullName(Tbl.DBHandle,
                        @Buffer ,
                        Props.szTableType,
                        @Buffer2));
  Result := StrPas(Buffer2);
end;
procedure TForm .Button Click(Sender: TObject);
begin
  Memo .Lines.Add(fDbiFormFullName(Table ));
end;
Notes:
  Table_You_Are_Using.Active Must be True.  
  Works on Local Tables.