[Savant]

DillerInc

Код:

procedure TfmSubRip_Mod.bbOpenClick(Sender: TObject);
{Открываем текстовый файл с титрами}
begin
  OpenDialog1.Filter := 'Титры с расширением "srt"|*.srt';
  if OpenDialog1.Execute then begin
    if FileExists(OpenDialog1.FileName) then begin
      mmOutput.Lines.LoadFromFile(OpenDialog1.FileName);  // Загружаем в многострочное поле текст из файла
      lbOutput.Caption := 'Нажмите "Пуск",чтобы начать исправление символов';  // Добавляем текст в метку
      end else lbOutput.Caption := 'Файл не найден' end else
    lbOutput.Caption := 'Повторите операцию "Открыть файл" ';