ввести две строки и сравнить есть ли в них общие элементы.

[Rasta67]

ввести две строки и сравнить есть ли в них общие элементы.
я делал, но получается не то что нужно:
на форме edit1 edit2 и button1.

procedure TForm1.btn1Click(Sender: TObject);
var
i,j:integer;
begin
  for i:=0 to form1.ComponentCount-1 do
  begin
    for j:=0 to form1.ComponentCount-1 do
    begin
      if i<>j then
      begin
        if (form1.Components[i] is TEdit) and (form1.Components[j] is TEdit) then
        begin
          if TEdit(form1.Components[i]).Text = TEdit(form1.Components[j]).Text then
          begin
            showmessage('Óðà!!! '+form1.Components[i].Name+' = '+form1.Components[j].Name);
          end;
        end;
      end;
    end;
  end;
end;

а вот второй код, но это то же самое только иначе (проще):

procedure TForm1.btn2Click(Sender: TObject);
var
  i,j:integer;
begin

  if edt1.text=edt2.text then
    ShowMessage('Åñòü ñõîæèå çíà÷åíèÿ')
  else
    ShowMessage('Ñõîæèõ çíà÷åíèé íåò');
end;

НО оба эти кода сравнивают Edt1 и Edt2. а как сделать то что мне нужно? помогите пожалуйста. завтра уже сдавать....

[Rasta67]

Ах да, естественно работаю в программе Delphi 7.