Delphi-Quellcode:
for i := 0 to sl.Count - 1 do
if Copy(Trim(sl[i]), 1, 4) = 'proc' then
for j := 0 to procs.Count - 1 do
if Pos(procs[j], sl[i]) > 0 then // <<<<< eventuell mal so probieren
ShowMessage(procs[j] + ' is correct.');
[edit], wobei ich mir nicht ganz sicher bin, was du genau machen willst ...