[Ogurcofff]

Задача передать содержимое txt файла в memo. Знаю что обмусолено все миллион раз.
Предлагается пользоваться:

Код:

1	Mmo1.lines.LoadFromFile('file.txt')

Но возникла проблема. Не выводится блин. Открываю файл через opendialog.
Далее содержимое файла должно передаться в memo выше описанным путем. Но memo остается пустым. Может что то еще надо дописать?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.btn1Click(Sender: TObject);     begin      q:=0;      dlgOpen1.Execute;      Edit1.Text := dlgOpen1 .FileName;      SProg := dlgOpen1 .FileName ;      btn2.Visible := True;      end;     procedure TForm1.btn2Click(Sender: TObject);      begin         <b><font color="Red">Mmo1.lines.LoadFromFile(SProg);</font></b>         i:=mmo1.Lines.Count;         V:=mmo1.Text;     end;