Как из Word-а взять только строку, которая начинается со слова "код", и вывести ее в Edit?

    OpenDialog1: TOpenDialog;
    Button1: TButton;
    Memo1: TMemo;

uses
  ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  wdApp, wdDoc, wdRng : OleVariant;
  S : String;
  Od : TOpenDialog;
begin
  //Диалог выбора файла документа MS Word.
  Od := OpenDialog1; //OpenDialog1 уже должен быть на форме.
  //Установка начального директория.
  //ExtractFilePath(ParamStr(0)) - директорий, в котором лежит исполняемый файл программы.
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath(ParamStr(0));
  if not Od.Execute then //Диалог выбора файла.
    Exit;
  if not FileExists(Od.FileName) then //Проверка существования файла.
  begin
    MessageBox(Handle, 'Файл не существует. Действие отменено.',
      'Внимание!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
 
  //Запуск экземпляра MS Word и получение ссылки на интерфейс его корневого объекта 'Word.Application'.
  wdApp := CreateOleObject('Word.Application');
  //Делаем видимым окно MS Word.
  wdApp.Visible := True;
  //Открываем документ и получаем ссылку на интерфейс представляющего его объекта.
  wdDoc := wdApp.Documents.Open(FileName:=Od.FileName);
  //Диапазон всего документа.
  wdRng := wdDoc.Range;
  //Текст документа помещаем в экземпляр списка.
  Memo1.Lines.Text := wdRng.Text;
 
  //Обработка списка.
  //...
  //...
  //...
end;