关于在TStringList里面搜索字符串的问题，头都想晕了，请各位帮帮忙！

[blackshell]

有两个TStringList，StrList1和StrList2. 里面分别记录着若干内容？
请问怎样才能判断StrList1里面的内容等于StrList2里面的内容了？

比如说StrList1里面的内容为:
'Delphi','Borland','Jbuilder','C++Builder';
第二个里面为：'Microsoft'，'Delphi','Borland','Visual C++','Visual Basic';

StrList1里面就有两个字符串等于StrList2的内容.
我知道要判断StrList1里面的内容是否有等于StrList2的内容
只需把StrList1中的每个字符串去比较StrList2中的每个字符串，如果相等就用
ShowMessage();显示出来。
但是这个程序应该怎么写了！请各位高手帮帮忙，谢谢！

[lion_lh]

var
StrList1,StrList2:tstringlist;
i,j:integer;
begin
StrList1:=tstringlist.create;
StrList2:=tstringlist.create;
StrList1.Delimiter :=',';
StrList2.Delimiter:=',';
StrList1.DelimitedText:='Delphi,Borland,Jbuilder,C++Builder';
StrList2.DelimitedText:='Microsoft,Delphi,Borland,Visual C++,Visual Basic';
for i:=0 to StrList1.count-1 do
begin
for j:=0 to StrList2.Count-1 do
if StrList1[i]=StrList2[j] then
showmessage(StrList1[i]);
end;
StrList1.free;
StrList2.Free;
end;