Неверно обрабатывается GET-запрос

[Cold_Night]

Привет всем. Возникла необходимость отправить GET-запрос на сайт http://inviz.su. Почитал статью о запросах в этом разделе, очень познавательная. Так я отправляю запрос

function ExistsStr(SubStr, MainStr: string): Boolean;
begin
  if (Pos(SubStr, MainStr) = 0) = False then Result:=True else Result:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
var 
S: string;
begin
  S:=IdHTTP1.Get('http://inviz.su/?uin='+Edit1.Text);
 if ExistsStr('INVISIBLE', S) then ShowMessage('Инвиз') else
if ExistsStr('OFFLINE', S) then ShowMessage('Оффлайн') else
if ExistsStr('ONLINE', S) then ShowMessage('Онлайн');
end;

В форме запроса метод вообще не указан, а когда я запрашиваю по единому полю, тогда вообще возвращается левый ответ, не тот, что по нажатию на кнопку. В чём может быть ошибка? Заранее спасибо.

ЗЫ: Статья по-настоящему познавательная и полезная, автору респект

[Пепел Феникса]

все в порядке с запросом
ты просто неверно обрабатываешь результат..
попробуй ANSIUpperCase использовать:

function ExistsStr(SubStr, MainStr: string): Boolean;
begin
  if Pos(ANSIUpperCase(SubStr), ANSIUpperCase(MainStr))=0 then Result:=False else Result:=true;
end;

и будь осторожнее там слово Invisible встречается не один раз

[Квэнди]

Метод GET используется по умолчанию, так что с выбором метода у вас верно. У меня к примеру на первый же запрос (из браузера) вернули что слишом частые попытки, и потом всегда только это и видел, так что советую этот вариант тоже проверять.
Насчет проверки вхождений в текст:
В модуле strutils есть ряд функций по работе с текстом, одна из которых вам подойдет:

function ContainsText(const AText, ASubText: string): Boolean; inline; overload;

Данная функция не учитывает регистр строк.

[SalasAndriy]

Нужно еще проверять вариант: "Слишком много запросов с одного IP к сайту http://inviz.su/."

Вчера пытался зделать подобную програмку на C++ так из-за множества запросов в конечном итоге получал такое сообщение...