eigenes Event programmieren?

[alleinherrscher]

Uuuuuppps...okay, sau dummer Fehler, gebe ich zu....

Allerdings ist das nicht der Fehler den ich meine...

Es kommt folgende Exception: EAccessViolation, und zwar genau dann wenn ich im Hauptprogramm
dem neuen Event eine Procedur zuweisen will.

Die Hauptprocedur sieht so aus:

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdTCPServer;

type
  TForm2 = class(TForm)
[...]
  private
    { Private-Deklarationen }
  public
   procedure test(Sender: TObject; MStream: TMemoryStream);
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

uses LANFS_KERNAL;

{$R *.dfm}

procedure TForm2.test(Sender: TObject; MStream: TMemoryStream);
begin
MStream.SaveToFile('C:\neuertest.tmp');
end;


procedure TForm2.FormCreate(Sender: TObject);
begin
lanfs_system.OnReceivedData:= Form2.test; //hier passiert der Fehler!!!
end;

procedure TForm2.Button1Click(Sender: TObject);
var stream:TFilestream;
begin
stream:=TFileStream.Create(edit1.text, fmOpenRead);
lanfs_system.SendStream(stream,edit2.text);
end;

[...]

end.