unit CAIdHttp; interface uses IdHTTP, Controls, Classes; type TCAIdHttp = class(TIdHTTP) private public // constructor Create(AOnwer: TComponent); end; implementation { TCAIdHttp } //constructor TCAIdHttp.Create(AOnwer: TComponent); //begin //// Request //end; procedure test; var ht: TIdHTTP; begin ht := TIdHTTP.Create(nil); end; end.