TFileStream.Create

Problemik następującej natury:
Otwieram plik w ten sposób:

var  plik :TFileStream;
    pom :string;
  begin
    plik:=TFileStream.Create(pom,fmOpenRead);

Wyskakuje błąd 'Cannot open file...' (oczywiście pom ma nadaną wartość). Niby nic, ale jak daje w ten sposób:

var  plik :File;
    pom :string;
  begin
    AssignFile(plik,pom);
    Reset(plik);

to działa. Dla mnie magia!

Spróbuj użyć fmOpenReadWrite, u mnie też czasem jajca były z fmOpenRead, ale to działało dobrze.