Проверка валидности URL

[atihiy2010]

Извеняюсь конечно если повторюсь, но нашел миллион функций которіе віполняют мою задачу и все выдают ошибку на месте обьявления переменных. Есть у меня Лабел с ссылкой на сайт, мне надо чтоб я нажал на буттон и высветилось сообщение если сайт не работает или выдает 404. Подскажите плиз как это сделать?

[kangreon]

uses
  IdHTTP;


function ValidUrl(const url: string): Boolean;
begin
  with TIdHTTP.Create(nil) do
  try
    try
      get(url);
      Result := ResponseCode = 200;
    except
      Result := False;
    end;
  finally
    Free;
  end;
end;

Функция вернет True если страница загрузилась с кодом 200. Иначе false.

Get еще можно попробовать заменить на head

[atihiy2010]

Пишет ошибку в месте begin. END expected but BEGIN found.

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

synapse

uses Httpsend;

function SiteRsponse(const aURL:string):boolean;
begin
  Result:=False;
  with THTTPSend.Create do
  begin
    Result:=(HTTPMethod('HEAD',aURL) and (ResultCode = 200));
    Free;
  end;
end;

[atihiy2010]

File not found Httpsend.dcu

[kangreon]

httpsend.pas входит в состав библиотеки Synapse, которую можно скачать на сайте

[atihiy2010]

Куда его кидать?

[atihiy2010]

ребят я мучаюсь с этим кодом уже неделю. Все время ошибки выдает, может киньте проектик рабочий, а я доработаю под себя. Хоть пример какой-то. Умоляю...