FileOpen und EOF

[Pseudemys Nelsoni]

Moin

Delphi-Quellcode:

...

          hFile := OpenFile(buf, ofs, OF_READWRITE);
          if hFile <> 0 then
          begin
            while not EOF(hFile) do
            begin
              messagebox(0, 'hi', 'hi', 0);
            end;
          end;
        end;
...

Weiss jemand wieso hier EOF nicht funktioniert? Fehler ist "Inkompatible Typen"