function FindRecordNumber (aDataSet : TDataSet): longint;
 var
 cP: CurProps;
 rP: RECProps;
 DBRes: DBiResult;
 begin
 {Return 0 if dataset is not Paradox or dBase}
 Result := 0;
 
 with aDataset do
 begin
 if state = dsInactive then exit;
 
 {we need to make this call to grab the cursor's iSeqNums}
 DBRes := DBiGetCursorProps(Handle,cP);
 if DBRes <> DBIERR_NONE then exit;
 
 {synchronize the BDE cursor with the dataset's cursor}
 UpdateCursorPos;
 
 {fill rP with the current record's properties}
 DBRes := DBiGetRecord(Handle,DBiNOLOCK,nil,@rP);
 if DBRes <> DBIERR_NONE then exit;
 
 {what kind of dataset are we looking at?}
 case cP.iSeqNums of
 0: result := rP.iPhyRecNum; {dBase}
 1: result := rP.iSeqNum; {Paradox}
 end;
 end;
 end;