Komponente mit TPaintBox: kann nicht mit Canvas zeichenen

[edmu]

wenn ich jetzt etwas im objektinspektor ändere, dann
möchte ich eine showmessage ausgeben. dieses funktioniert
aber leider nicht und deshalb werden die farben auch
nicht übernommen.

Delphi-Quellcode:

FPen           : TPen;    
property Pen  : TPen read FPen write SetPen;

Delphi-Quellcode:

procedure TPfeil.SetPen(Value: TPen);
begin
  //if Value <> FPen then begin
    showmessage('pen');   FUNKIONIERT NICHT
    FPen.Assign(Value);
    self.Repaint;
  //end;
end;