[Ogurcofff]

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

Код:

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

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

Код:

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
        Mmo1.lines.LoadFromFile(SProg);
        i:=mmo1.Lines.Count; 
        V:=mmo1.Text;
    end;