function GetRecordLength(dbf :integer): integer;

var
  dbf :integer;
  r :integer;
begin
  dbf := OpenBase( 'filename.dbf' );
  if dbf <> 0 then
  begin
   writeln('reclen = ' + inttostr( GetRecordLength(dbf) ) );
   CloseBase(dbf);
  end;
end.