var
 i:integer
begin
 for i:=0 to Sl.Count-1 do
 if Sl.Strings[i] = 'Text' then ...