Узнать доступна ли интернет страница или нет

[megostudent]

Есть 2 мемо и 1 кнопка.
Суть: в мемо1 вводим 2 сайта (например: google.com и iuhbasde.gasd.com)
по нажатию на кнопки эти 2 сайта должны провериться на работоспособность ну или простыми словами есть ли такой сайт на просторах интернета или нет. После того как кнопка была нажата в мемо2 должны появиться 2 строки типа:
google.com - существует
iuhbasde.gasd.com - не существует.
Как я понял нам нужен компонент IdHTTP и пост запрос к сайту. Но как проверить его отстук? Подскажите.

[Человек_Борща]

HEAD запрос на сайт. Если ответ 200 то сайт живой, иначе не живой.

[megostudent]

procedure TForm1.Button1Click(Sender: TObject);
begin
idhttp1.Head(Edit1.text);
end;

ввожу в едит google.ru выдает ошибку, так же и с http://google.ru/
компонент idhttp на форме есть
Если можно то киньте примерчик плиз

[Delphi_ProGer]

выдает ошибку

Да, мы вот взяли и сразу догадались, что это за ошибка.

[megostudent]

function URLExists(const URL: string): Boolean;
var
lpdwBufferLength, lpdwReserved: DWORD;
SessionPointer, FilePointer: Pointer;
lpvBuffer: array [1..20] of Char;
QueryResult: PChar;
begin
Result := False;
SessionPointer := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

if Assigned(SessionPointer) then
try
FilePointer := InternetOpenUrl(SessionPointer, PChar(url), nil, 0, INTERNET_FLAG_RELOAD, 0);

if Assigned(FilePointer) then
try
lpdwBufferLength := 10;
lpdwReserved := 0;

HttpQueryInfo(FilePointer, HTTP_QUERY_STATUS_CODE, @lpvBuffer, lpdwBufferLength, lpdwReserved);
QueryResult := PChar(@lpvBuffer);

Result := QueryResult = IntToStr(HTTP_STATUS_OK);
finally
InternetCloseHandle(FilePointer);
end;

finally
InternetCloseHandle(SessionPointer);
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
if URLExists(Edit1.Text) then
label1.Caption := 'URL is good :)'
else
label1.Caption := 'URL is bad (:';
end;

end.

робит