delphi TOpenDialog
![](0d330d57-863b-4150-ad9a-7106546446ca_files/39579029.jpg)
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;