استفاده از رویدادهای کامپوننت بدون استفاده Form و DataMoudle

[loo30fer]

سلام دوستان
من میام برای استفاده از یک کامپوننت مثلا IdHTTP تو dll اون رو به شکل زیر ایجاد میکنم:

var
IdHTTP: TIdHTTP;
begin
IdHTTP:= TIdHTTP.Create(nil);
end;

در کل چون نمیخوام از Form و DataMoudle کمک بگیرم بدین شکل عمل میکنم حالا میخوام از رویدادهاش استفاده کنم برای مثال از رویداد OnStatus ولی نمیدونم چطور؟ هرکاری هم کردم نشد.

[SAASTN]

procedure IdHTTP1Status(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: string);
begin
// ...
end;

var
IdHTTP: TIdHTTP;
OnStatus: TIdStatusEvent;
begin
IdHTTP:= TIdHTTP.Create(nil);
TMethod(OnStatus).Code := @IdHTTP1Status;
TMethod(OnStatus).Data := nil;
IdHTTP.OnStatus := OnStatus;
end;