CreateEvent in einer Klasse

[RWarnecke]

Hallo zusammen,

ich habe folgendermassen eine Klasse aufgebaut :

Delphi-Quellcode:

  TTest = class(TObject)
  private
    procedure Test(Test:string);
  public
    { Public Deklaration }
  end;

procedure TTest.Test(Test:string);
var
  hScanCompleteEvent : THandle;
begin
  hScanCompleteEvent := CreateEvent(nil, False, False, nil);

  {...}

  WaitForSingleObject(hScanCompleteEvent, INFINITE);
end;

Wenn ich jetzt diese Procedure über ein Property aufrufe, bekomme ich eine EAccessViolation bei WaitForSingleObject. Kann ich keinen CreateEvent innerhalb einer Klasse benutzen oder mache ich etwas Falsch ?