type
  TfrMain = class(TForm)
    edMainID: TEdit;
    edTitle: TEdit;
    edContinent: TEdit;
    edCountry: TEdit;
    dbGrMain: TDBGrid;
    adoQrMain: TADOQuery;

    adoQrMain.SQL.Clear;
    adoQrMain.SQL.Add('SELECT AMSMain.ID, AMSMain.Title, MSContinent.Continent, MSCountry.Country '+
    'FROM AMSMain, MSContinent, MSCountry '+
    'WHERE AMSMain.Continent=MSContinent.ID AND AMSMain.Country=MSCountry.ID' );
    adoQrMain.Active:=True;

procedure TfrMain.dbGrMainCellClick(Column: TColumn);
begin
  try
    edMainID.Text:=IntToStr(adoQrMain.FieldByName('ID').AsInteger);
    edTitle.Text:=adoQrMain.FieldByName('Title').AsString;
    edContinent.Text:=adoQrMain.FieldByName('Continent').AsString;
    edCountry.Text:=adoQrMain.FieldByName('Country').AsString;
  except
  on e:Exception do
  end;
end;

procedure TMainForm.sbtDecodeTextClick(Sender: TObject);
//mm-це приставка до компонентів Memo
//ed-це приставка до компонентів Edit
var
  iCopyLines:integer;//Порядковий номер рядка в мемо
  iSizeLines:integer;//Кількість символів у рядку
  iNumLetterS:integer;//Порядковий номер символу "\" у рядку
  iNumLetterES:integer;//Порядковий номер символу "=" у рядку
  sLines:String;//Скопійований рядок з мемо1
  sLetter:String;//Частина рядка до знаку "\"
  sKodeTrue:String;//Частина рядка між знаками "\" та "="
  sKodeFalse: String;//Частина рядка після знаку "="
begin
//---  Тут ми зозбиваємо строку з Memo1 на три частини  ---
//----------------------------------------------------------
  for iCopyLines:=0 to mmCode.Lines.Count-1 do
    begin
      sLines:=mmCode.Lines[iCopyLines];//копіюємо строку у змінну з Memo1
      with mmCode do//виділяємо текст(цілий рядок) у Memo1
        begin
          SetFocus();
          SelStart:=Pos(sLines,mmCode.Lines.Text)-1;
          SelLength:=Length(sLines);
        end;
      iSizeLines:=Length(sLines);//знаходимо кількість символів строки
      iNumLetterS:=Pos('\',sLines);//дізнаємося порядковий номер символу "\"
      iNumLetterES:=Pos('=',sLines);//дізнаємося порядковий номер символу "="
      sLetter:=Copy(sLines,1,iNumLetterS-1);//копіюємо частину рядка до знаку "\"
      edLetter.Text:=sLetter;//записуємо у поле Edit1
      sKodeTrue:=Copy(sLines,iNumLetterS,iNumLetterES-iNumLetterS);//копіюємо частину рядка між знаками ("\"-1)та "="
      edKodeTrue.Text:=sKodeTrue;//записуємо у поле Edit2
      sKodeFalse:=Copy(sLines,iNumLetterES+1,iSizeLines-iNumLetterES);//копіюємо частину рядка після знаку "="
      edKodeFalse.Text:=sKodeFalse;//записуємо у поле Edit3
//--- Тут ми замінюємо частини тексту у полях Memo2 та Memo3 ---
//-----------------------------------------------------------
      if Pos(sKodeFalse,mmText.Lines.Text)<>0 then//Якщо є такий фрагмент тексту то замінюємо його
        begin            {
          with mmText do
            begin
              SetFocus();
              SelStart:=Pos(sKodeFalse,mmText.Lines.Text)-1;
              SelLength:=Length(sKodeFalse);
            end;  }
          mmText.Lines.Text:=StringReplace(mmText.Lines.Text,sKodeFalse,sKodeTrue,[RFREPLACEALL]);//Замінюємо частини тексту у Memo2
          mmTextVisible.Lines.Text:=StringReplace(mmTextVisible.Lines.Text,sKodeFalse,sLetter,[RFREPLACEALL]);//Замінюємо частини тексту у Memo3
        end
          else
        begin
          if Pos(sKodeTrue,mmTextVisible.Lines.Text)<>0 then //Якщо є такий фрагмент тексту то замінюємо його
            begin
              mmTextVisible.Lines.Text:=StringReplace(mmTextVisible.Lines.Text,sKodeTrue,sLetter,[RFREPLACEALL]);//Замінюємо частини тексту у Memo3
            end;
        end;
    end;  
  ShowMessage('Завершено');
end;