function TBDEDirect.GetCurRecord(Lock: DBILockType): PChar;  
var  
  Res: DBIResult;  
  RecSize: Word;  
  RecBuf: PChar;  
  Bookmark: TBookmark;  
begin  
  Result := StrNew('');  
  if CheckDatabase then  
    begin  
      RecSize := GetPhysicalRecSize;  
      RecBuf := StrAlloc(RecSize+1);  
      FillChar(RecBuf^, RecSize+1, #0);  
      Bookmark := FDataLink.DataSource.DataSet.GetBookmark;  
      DbiSetToBookmark(FDataLink.DataSource.DataSet.Handle,Bookmark);  
      FDataLink.DataSource.DataSet.FreeBookmark(Bookmark);  
      Res := DbiGetRecord(FDataLink.DataSource.DataSet.Handle,  
        Lock, RecBuf, nil);  
      if Res = 0 then  
        Result := RecBuf  
      else  
        Check(Res);  
    end;  
end;