TOpenDialog

 

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  with TOpenDialog.Create(nil) do

  begin

     Filter:='Text files (*.txt)|*.txt)|All Files(*.*)|*.*';

    if Execute then

       Memo1.Lines.LoadFromFile(Filename);

  end;

end;