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

[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 както этот файл открывают ???? а как ????

[Гость]

memo1.Lines.LoadFromStream(f1);

Access violation at adress XXXXX in module XXXXX read of adress XXXXX .

вот так вот пишет гадина

может еще какие идеи ????