[angvelem]

Мдя, учиться нужно:

Код:

procedure TForm4.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Memo.Lines.LoadFromFile(OpenDialog1.FileName);
    Caption := ExtractFileName(OpenDialog1.FileName) + ' - Блокнот';
  end;
end;