[ghetto]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
f:textfile;
s:string;
begin
assignfile(f,'D:\1.txt');
reset(f);
while  not eof(f) do
begin
read(f,s);
memo1.text:=s;
end;
closefile(f);
end;

end.

Админ: 2-х дневный бан за несоблюдение правил форума по оформлению кода!

при использование данного кода программа зависает
в чем причина?