Rozmiar pliku bez resetu() ?

Dzień dobry. Mam mały problem. W programi umieściłem funkce sprawdzającą rozmiar pliku tzn:

AssignFile(plik,linia.oryginalna_nazwa_pliku);
try
Reset(plik);
wielkosc:= FileSize(plik)*128;
finally
CloseFile(plik);
end;
niestety w <ort>momęcie </ort>gdy plik jest "tylko do odczytu" pojawia się błąd I/O 103. <ort>Rozmumiem </ort>że nie mogę stosować resetu na plikach tylko do odczytu i stąd moje pytanie czy można jakoś inacze sprawdzić wielkosc pliku bez jego otwierania?
Ps. Przeszukałęm forum ale nie znalazłem żadnej pomocy dlatego robie nowy wątek.

Pozdrawiam i dziękuje za pomoc...

var f: TFileStream;
begin
  F := TFileStream.Create('ścieżka', fmOpenRead);
  F.Size // tutaj rozmiar w bajtach
  F.Free;
end;

OK. Zaraz przetestuje. Dzięki wielkie :)

http://msdn.microsoft.com/library/en-us/fileio/fs/getfilesize.asp?frame=true

http://msdn.microsoft.com/library/en-us/fileio/fs/getfilesizeex.asp?frame=true

Można też skorzystać z funkcji FindFirst