Delphi. Проверить сайт на доступность

[igrok111]

В memo список url-ов. Нужно с помошью idhttp зайти по очереди - сначало на первый урл, если соединение есть - то останавливаемся, если не соеденило - берем второй урл и так до конца.
Вот что я пробовал, однозначно нужно в цикле, за переменную беру номер строки в мемо.

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to memo1.Lines.Count-1 do
try
idhttp1.Get(memo1.Lines.Strings[i]);
except
end; //по сути ничего я не сделал) не знаю как тут дальше
end.

Я добился того, что не выводяться ошибки(404, 301 и тд) и вроде оно проходит по всем ссылкам нормально, но как остановить при первом удачном конекте?
Допустим в мемо строки(намерено с ошибками)
http:/google.ru
http://goog03030393.ru
http://google.ru
http://yandex.ru

должно попытаться приконектиться по очереди ко всем и остановиться после 3-ей попытки

[BDA]

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  t: boolean;
begin
  i := 0;
  t := false;
  repeat
    try
      IdHTTP1.Get(Memo1.Lines.Strings[i]);
      t := true;
    except
      inc(i);
    end;
  until (i = Memo1.Lines.Count) or t;
  if t then
    showmessage('Правильная: ' + inttostr(i + 1));
end;

[саша40]

Держи:

var
i: integer;
url: string; 
begin
for i:=0 To Memo1.Lines.Count-1 Do 
begin
url:=memo1.lines.strings[i];
idhttp1.host:=url;
idhttp1.connect;
if idHTTP1.Connected=false then 
ListBox1.Items.Add(inttostr(i) + '-недоступен')
else
ListBox1.Items.Add(inttostr(i) + '-доступен');

idHttp1.Disconnect;
end;
ShowMessage('Готово');
end;

[eval]

var
  i : Integer;
label
  ret;
begin
  i := 0;
  repeat
    try
      IdHTTP1.Get(Memo1.Lines.Strings[i]);
      goto ret;
    except
      inc(i);
    end;
  until (i = Memo1.Lines.Count);
ret:
  if i < Memo1.Lines.Count then
    showmessage('Правильная: ' + inttostr(i + 1));
end;

моя круче

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

и зачем тут метка?
достаточно break.

в остальном лучше