Перевод слов в двоичный код

[Keitlin]

Здравствуйте
У меня есть текст нужно найти определенные слова и перевести их в двоичный код.
Текст находиться в Memo1 что ищем в Memo2 пока то что нашла выводиться в Memo3, а мне надо выводить уже найденное в двоичном коде и в Memo1. Помогите пожалуйста.

procedure TForm1.Button3Click(Sender: TObject);
var
  S : String;
  i, j : Integer;
  s2: string;
  a,i: integer;
begin
  Memo3.Clear;
  S := Memo1.text; //Г’ГҐГЄГ±ГІ, Гў êîòîðîì áóäåì âûïîëГ*ГїГІГј ïîèñê.
  for i := 0 to Memo2.Lines.Count - 1 do
  begin
    j := 1;
    repeat
 
      j := PosEx(Memo2.Lines[i], S, j);
 
      if j > 0 then
      begin
       Memo3.Lines.Add(Memo2.Lines[i]);
       Inc(j, Length(Memo2.Lines[i]));
      end;
    until j = 0;
  end;
end;