Delphi,вывод в memo с txt

[Wutang]

помогите разобраться,запускаю программу и она просто виснет и не дает не каких ошибок, не могу разобраться что не так

procedure TForm1.btn6Click(Sender: TObject);

var
n:integer;
a:textfile;
buf: String; 
begin
if form1.dlgOpen1.Execute then form6.mmo1.Lines.LoadFromFile(form1.dlgOpen1.FileName);
AssignFile(a,dlgOpen1.FileName);
Form6.show;
{$I-}
Reset(a); 
{$I+}
if IOResult <> 0 then begin
MessageDlg('Ошибка доступа к файлу ',
mtError,[mbOk],0);
exit;
end;

while not EOF(a) do begin
Form6.mmo1.Lines.Add(buf); 

end;
CloseFile(a);
end;

[Stilet]

if form1.dlgOpen1.Execute then form6.mmo1.Lines.LoadFromFile(form1 .dlgOpen1.FileName);

Это все что нужно, остальной код выкинь вообще.

[Wutang]

Сообщение от Stilet

Это все что нужно, остальной код выкинь вообще.

спасибо больше теперь то работает как положено