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;