if ListBox1.ItemIndex=0 then
edit1.text:= 'http://samp-rp.su/memberlist.php?mode=viewprofile&u=132'; // El Capone первая строка
if ListBox1.ItemIndex=1 then
edit1.text:= 'http://samp-rp.su/memberlist.php?mode=viewprofile&u=2'; //Flazy fad 2 строка

idhttp1.HandleRedirects := true;
memo1.text:= idHTTP1.Get(edit1.text);// загружаем в memo исходный код страницы профиля одмина
timer1.enabled:=true;// включаем таймер

var // Объявляем переменные
Find:string; // Искомая строка
i:integer; // Счетчик для цикла
begin
find:='Online'; // Записываем в find текст из Edit
for i:=0 to Memo1.Lines.Count-1 do // Запускаем цикл поиска строки
If Pos(FIND, Memo1.Lines.Text)<>0 // если найдено слово "Online"
then //  то
begin
timer1.enabled:=false;  // вырубаем таймер
label1.Caption:= 'В сети';
end
else // если не найдено
begin
timer1.enabled:=false;
label1.Caption:= 'Не в сети';
end;
                 end;