Lm_getfiles1 - browse for file

const 
  TextFileExt = 'txt';
  TextFileFilter = 'Текстовые файлы (*.'+TextFileExt+')|*.'+TextFileExt;

Procedure MenuOpenClick(sender:object; args:System.EventArgs);
begin
  var sd := new OpenFileDialog;
  sd.DefaultExt := TextFileExt;
  sd.Filter := TextFileFilter;
  if sd.ShowDialog = DialogResult.OK then 
    OpenFile(sd.FileName);
end;

procedure MenuSaveClick(sender:object; args:System.EventArgs);
begin
  //Диалог для выбора файла
  var sd := new SaveFileDialog;
  //Расширение поумолчанию
  sd.DefaultExt := TextFileExt;
  //Фильтр для диалга
  sd.Filter := TextFileFilter;
  if sd.ShowDialog=DialogResult.OK then 
    //если результат выполнения sd.ShowDialog это нажатие кнопки подтверждения то
    SaveFile(sd.FileName);
end;