HTTP := TccHTTP.Create;
try
try
HTTP.Execute('http://www.google.de',ccHC_Get);
ShowMessage(IntToStr(HTTP.Response.Code));
ShowMessage(HTTP.Response.ContentText);
ShowMessage(HTTP.Response.Header['Content-Type']);
except
ShowMessage('Error on request with code: ' + IntToStr(HTTP.Response.Code));
end;
finally
HTTP.Free;
end;