Ayuda con TidHTTP

[JuanOrtega]

Gracias por la respuesta me ha servido de mucho , pero ahora tengo otra duda porque tengo un array que verifica la existencia de todos los archivos en el array pero cuando
una pagina no existe automaticamente no sigue con los otros elementos de la lista y deja de escanear.

procedure TForm1.Button1Click(Sender: TObject);
const
  paginas:array[1..4] of string = ('index.php','noexisto.php','basura/noexisto','index.php');

var
  IdHTTP: TIdHTTP;
  i:integer;

begin


   try
    for i:= low(paginas) to High(paginas) do
    begin

    IdHTTP := nil;
    IdHTTP := TIdHTTP.Create(nil);
    IdHTTP.Get(Edit1.Text+'/'+paginas[i]);

    if  IdHTTP.ResponseCode=200 then begin
    Memo1.Lines.Add(Edit1.Text+'/'+paginas[i]);
    end;
    end;
    except
      on E : EIdHttpProtocolException do
      begin
      end;
      on E : Exception do
      begin
      end;
    end;
    end;

¿ Me podrias ayudar a arreglar el codigo ?