[Страдалецъ]

Мне кажется код существенно упростится, если TStringList использовать. Примерно так:

Код:

procedure TForm7.Button1Click(Sender: TObject);
Var
  SL: Array[1..2] of TStringList;
  i,j,Index: Integer;
begin
 for i := 1 to 2 do SL[i] := TStringList.Create;

 SL[1].DelimitedText := Edit1.Text;
 SL[2].DelimitedText := Edit2.Text;

 Memo1.Clear;
 for i := 0 to SL[2].Count - 1
 do for j := 0 to SL[1].Count - 1
    do if SL[1].Strings[j] = SL[2].Strings[i]
       then Memo1.Lines.Add(IntToStr(i));

 for i := 1 to 2 do SL[i].Free;
end;

Это именно пример. А вот что сделать, что-бы он под вашу задачу подходил, вы сами должны дотюмкать. Удачи