ayuda programa frase en mayuscula

[Gothic_Indhy]

A ver si alguien me puede ayudar...

tengo que hacer un programa en delphi que lea dos frases y me imprima la primera con las coincidencias en mayuscula. Ejemplo

rapido

tornado

Imprima::: RApiDO

lo que he hecho hasta ahora pero que no funciona es:::

Código Delphi [-]
For x:=1 to LFr1 do
   For y:=1 to LFr2 do
 If (Fr1[x]=Fr2[y]) then
         Begin
          s:=s+uppercase(Fr1[x]);
          break;
         end
          else
         Begin
          s:=s+Fr1[x];
          break;
         end;
        end;
  end;

tengo que hacerlo usando un ciclo for, while o Repeat