var
  li:TStringList;
  idx:integer;
begin
  li:=TStringList.Create;
  li.Add('22');
  li.Add('89');
  li.Add('45');
  li.Find('89',idx);
  showmessage(inttostr(idx));
  li.Free;
end;