Chervones

Кстати вот мой код:
var F: TextFile;
S: string;
begin
if OpenDialog.Execute
then AssignFiie(F, OpenDialog.FileName)
else Exit; Reset(F);
while Not EOF(F) do
begin
Readln(F, S) ;
Memo.Lines.Add(S);
end;