Element '' hat kein übergeordnetes Fenster

[Pseudemys Nelsoni]

Moin,

so ich habe CreateWnd überschrieben.

Nun wenn ich mein Programm beende ist es erstmal 1min gefroren und dann bekomme ich eine AV "Stack Overflow".

Weiss jemand was zu tun ist?

Sieht nun ca so aus:

Delphi-Quellcode:

unit pbIRCChatBox;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, StdCtrls, ComCtrls;

type
  TpbIRCChatBox = class(TRichEdit)
  private
    FWndProc: TWndMethod;
    procedure nWndProc(var Msg: TMessage);
  protected
    procedure CreateWnd; override;
  end;

procedure Register;

implementation

procedure TpbIRCChatBox.nWndProc(var Msg: TMessage);
begin
  FWndProc(Msg);
  HideCaret(Handle);
end;

procedure TpbIRCChatBox.CreateWnd;
begin
  inherited CreateWnd;
  FWndProc := WindowProc;
  WindowProc := nWndProc;
end;

procedure Register;
begin
  RegisterComponents('pb', [TpbIRCChatBox]);
end;

end.

ich sehe nicht das was falsch sein könnte oder?