Utilize o método HEAD, lembrando que caso a resposta não seja 200 (ok), a rotina vai cair em exceção e esta deve ser tratada.
Segue exemplo conforme o solicitado na pergunta:
procedure TForm1.Button1Click(Sender: TObject);
var
http : TIdHttp;
url : string;
codigo : integer;
begin
url := 'http://www.xxx.com.br/teste.php?Teste';
http := TIdHTTP.Create(nil);
try
try
http.Head(url);
codigo := http.ResponseCode;
except
on E: EIdHTTPProtocolException do
codigo := http.ResponseCode;
end;
ShowMessage(IntToStr(codigo));
finally
http.Free();
end;
end;
Lembrando que para fazer surgir a palavra OK, basta fazer uso de um case na variável código. Para isso, segue lista de códigos de resposta HTTP