Загрузка в Memo через OpenDialog

[Asblue]

Здравствуйте!
Как загрузить в Memo текстовый файл через OpenDialog?

[WhiteSpirit]

if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

[Asblue]

Спасибо Вам! ))

[Asblue]

А для SaveDialog тоже самое?

[Asblue]

procedure TForm1.N2Click(Sender: TObject);
begin
if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
begin
AssignFile(f,SaveDialog1.FileName);
Rewrite(f);
closefile(f);
end;

Вот, процедура работает, но сохраняет в файл без формата и он остаётся пустой. Т.е. ничего не сохраняет...

[Prisioner]

if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);

и ничего лишнего

[Asblue]

СПАСИБО!!! ))