Содержится ли строка в списке

Автор: Сергей

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Функция возвращает true если сторока st содержится в списке строк Stlist

Возвращает true если сторока st содержится в списке строк Stlist

Зависимости: ???
Автор:       Сергей, nfkazak@inbox.ru, Краснодар
Copyright:   VIP BANK
Дата:        11 сентября 2002 г.
***************************************************** }

function ListContained(st: string; StList: TStrings): boolean;
var
  i: longint;
begin
  result := false;
  for i := 0 to StList.Count - 1 do
    if St = StList.Strings[i] then
    begin
      result := true;
      break
    end
end;