Comparar Array con datos en Memo

[Mantixd]

Buenas, lo que pasa es que quiero hacer un tipo Analizador Lexico digamos que en ensamblador, tengo un Arreglo donde tengo los registros y quiero que al escribir codigo fuente en un Memo y presionar un boton buscar me compare los datos del arreglo con los escritos en el Memo y si encuentra algunos me los ponga en un Memo2 o en un RichEdit, soy estudiante y aun estoy aprendiendo y pues disculpen mis horrores espero y me puedan ayudar saludos.

Código Delphi [-]
 meses: array[1..31] of string = ('AX','BX','CX','DX','AH','AL',
                                   'BH','BL','BP','CH','CL','CS',
                                    'CX','DH','DL','DI','DS',
                                    'EAX','EBP','EBX','ECX',
                                      'EDI','EDX','EIP','ES',
                                      'ESIFE','GS','IP','SI','SP','SS');

procedure TForm1.Button1Click(Sender: TObject);
var
  N,x:integer;
  a, sEtiqueta: String;

  Z : Integer;
Texto : string;

  I,J,Long,P,Posic:Integer;
  Reservada,Aux,Linea,Palabra:String;

   begin
       for x := Low(meses) to High(meses) do
   if Memo1.Text=meses[x] then  begin
   RichEdit1.Text:= Memo1.Text;

   end;
         end;