1:
2:
3:
4:
5:
6:

try
  IdHTTP.Get('http://i1.ytimg.com/PFAD ZUM IMAGE');
  //Hier gehts weiter wenn der Server bzw die Datei vorhanden ist
except
  //Hier kommt das dann rein was gemacht werden soll wenn der Server nicht erreichbar bzw  die Datei nicht vorhanden ist
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

try

HT.Get('http://i4.ytimg.com/vi/KWJuDguYFIM/default.jpg');
Edit1.Text := 'OK';

except

Edit1.Text := 'NOT OK';

end;

try

HT.Get('http://i4.ytimg.com/vi/KWJuDguYFIM/default23456789.jpg');
Edit2.Text := 'OK';

except

Edit2.Text := 'NOT OK';

end;

try

HT.Get('http://i47777777.ytimg.com/vi/KWJuDguYFIM/default.jpg');
Edit3.Text := 'OK';

except

Edit3.Text := 'NOT OK';

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

function CheckInternet: Boolean;
var
  i: Integer;
  http: TIdHTTP;
const
  Service: array[0..5] of string = (
    'http://www.google.com/',
    'http://www.myspace.com/',
    'http://www.facebook.com/',
    'http://www.ebay.com/',
    'http://www.microsoft.com/',
    'http://twitter.com/');
begin
  Result := false;

  http := TIdHTTP.Create(nil);
  http.HandleRedirects := true;
  i := 0;

  try
    repeat
      try
        http.Get(Service[i]);
        Result := true;
      except
        i := i + 1;
      end;

      if i = 6 then
      begin
        i := 0;
      end;
    until (Result = true);
  finally
    http.Free;
  end;
end;                    

1:

  IdHTTp.head(URL);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  HttpLoader: TIdHttp;
begin
  HttpLoader := TIdHttp.Create;
  try
    HttpLoader.Head('http://i4.ytimg.com/vi/KWJuDguYFIM/default.jpg');
    if HttpLoader.ResponseCode = 200 then
      memResult.Lines.Add('erfolgreich');
  finally
    HttpLoader.Free;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm6.Button1Click(Sender: TObject);
var
  HttpLoader: TIdHttp;
begin
  HttpLoader := TIdHttp.Create;
  try
    HttpLoader.Head(Edit1.Text);
    if HttpLoader.ResponseCode = 200 then
      memResult.Lines.Add('erfolgreich');
  finally
    HttpLoader.Free;
    memResult.Lines.Add('Finish');
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm6.Button1Click(Sender: TObject);

begin

  try
    IdHTTP1.Head(Edit1.Text);
    if IdHTTP1.ResponseCode = 200 then
      memResult.Lines.Add('erfolgreich');
 except

    memResult.Lines.Add('nope');
  end;
end;                    

1:

Idhttp1.ReadTimeout := 5000;