نحوه ی ایجاد رویداد برای شی ای که هنگام اجرا ساخته می شود

[arkia]

باسلام
من میخواستم بدونم چطوری برای شی ای که هنگام اجرا تعریف می شود رویداد قرار بدم؟

مثالشو خدمتتون میگم:


> procedure TForm1.HTTPRIO1BeforeExecute(const MethodName: string;
> SOAPRequest: TStream);
> const
> X = '<checkVat
> xmlns="urn:ec.europa.eu:taxud:vies:services:checkVat:type s">';
> Y = '<checkVat>'
> var
> S: TStringList;
> Str: String;
> begin
> S := TStringList.Create;
> try
> SOAPRequest.Position := 0;
> S.LoadFromStream(SOAPRequest);
> Str := S.Text;
> if Pos(X, Str) > 0 then
> Str := Stringreplace(Str, X, Y, [rfReplaceAll]);
>
> // do the same with the SOAP-ENV to put namespace inside again
>
> SOAPRequest.Position := 0;
> S.Text := Str;
> S.SaveToStream(SOAPRequest);
> finally
> SOAPRequest.Position := 0;
> S.Free
> end;
> end;


اما مشکل و سوال اینجاس که من چطوری این رویداد رو به HTTPRIO اضافه کنم وقتی که شی ام توی فرم قرار نداره؟؟؟؟
یعنی من اینطوری این شیء رو دارم:
var
RIO: THTTPRIO;

[Felony]

بارها در موردش توضيح داده شده ، قبل از سوال كردن جستجو كنيد ، من تو جست جو پیشرفته ، تالار رو " مباحث عمومی دلفی " و کلید واژه رو "Event" زدم :

http://barnamenevis.org/showthread.php?204854-%D8%B1%D9%88%DB%8C%D8%AF%D8%A7%D8%AF%D9%87%D8%A7%D B%8C-%D8%A2%D8%A8%D8%AC%DA%A9%D8%AA-%D9%87%D8%A7%DB%8C-%D8%A7%DB%8C%D8%AC%D8%A7%D8%AF-%D8%B4%D8%AF%D9%87-%D8%AF%D8%B1-RunTime

http://barnamenevis.org/showthread.php?206751-Assign-%D8%B1%D9%88%DB%8C%D8%AF%D8%A7%D8%AF-%D8%A8%D9%87-%D9%87%D9%85%D9%87-%D8%A2%D8%A8%D8%AC%DA%A9%D8%AA-%D9%87%D8%A7

http://barnamenevis.org/showthread.php?261520-%D8%B1%D9%88%DB%8C%D8%AF%D8%A7%D8%AF-click-%D9%88-onclick