Открыть уже открытый файл, Открыть уже открытый файл Опции

[petro_fm]

нужно открыть уже открытый файл,для чтения, пишу вот так :
AssignFile(f,fn.Text);
FileMode:=fmShareDenyNone ;
{$I-}
reset(f);
{$I-}

err:=IOREsult;
if err<>0 then begin
ShowMessage('Error open file # '+IntToStr(err));
exit;
End;
возвращает ошибку №32
FileMode пробовал разные, все равно не открывает , но
команды type, copy както этот файл открывают ???? а как ????

[Гость]

var f:textfile;
f1:TFileStream;
begin
AssignFile(f,fn.Text);
FileMode:=fmShareDenyNone ;
{$I-}
reset(f);
{$I-}
err:=IOREsult;
if err<>0 then begin
ShowMessage('Error open file # '+IntToStr(err));
exit;
End;
Здесь раз - #32

f:=TFileStream.create(fn.Text, fmShareDenyNone);
memo1.Lines.LoadFromstream(f); <<<<<< здесь два Access violation ......