Ereignisprozedur zur Laufzeit zu weisen

[Samashy]

Hallo Ihr Lieben,

ich hänge an folgendem Problem fest.
Ich möchte eine Komponente zur Laufzeit erzeugen und dann eine Ereignisprozedur zu weisen:

Code:

type
  TForm1 = class(TForm)
      Memo1: TMemo; 
      procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
     testrio : THTTPRIO;
     procedure testrioBeforeExecute(const MethodName: string;
      var SOAPRequest: TStream);
  public
    { Public-Deklarationen }
  end;

Code:

procedure TForm1.testrioBeforeExecute(const MethodName: string;
  var SOAPRequest: TStream);
var
 Request: UTF8String;
begin
  SetLength(Request, SOAPRequest.Size);
  SOAPRequest.Position := 0;
  SOAPRequest.Read(Request[1], Length(Request));
  Memo1.Lines.Add(FormatXMLData(Request));
end;

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
   testrio :=THTTPRIO.create(Application);
   testrio.OnBeforeExecute:=testrioBeforeExecute;    //<---- Hier bekomme ich den Fehler
end;

Die Fehlermeldung: Inkompatible Typen: 'Liste der Parameter ist unterschiedlich'

Was mache ich falsch?