FilePos                  Returns Current Position in File

 FilePos(var DFile : file of <type>) : Integer;                          [TP]
 FilePos(var UFile : file) : Integer;                                    [TP]

    Returns the record number currently pointed to by the file variable
    DFile or UFile. If a file has N records, the first record is at
    position 0, while the last is at position N-1.

           DFile    A data file.

          <type>    Any type except a file type.

           UFile    An untyped file.

           Note:    See LongFilePos for a function that returns the file
                    position for files that have more than (MAXINT + 1)
                    records. (MAXINT = 32,767).

  -------------------------------- Example ---------------------------------

           I := FilePos(DFile);     { I = current location }