FMX Komponente erstellen

[franktron]

Ich habe jetzt eine Komponente erstellt die aber leider nicht läuft.

Delphi-Quellcode:

TONLUrlaubsplaner = class(TControl)
.
.
procedure Paint; override;
.

procedure paint;
Begin
Canvas.BeginScene();
  Canvas.Stroke.Dash:=TStrokeDash.Solid;
  Canvas.Stroke.Color:=TAlphaColorRec.Black;
  Canvas.Fill.Color:=TAlphaColorRec.Red;
  Canvas.Fill.Kind:=TBrushKind.Solid;
  Canvas.Stroke.Thickness := 1;

  Canvas.DrawRect(RectF(0,0,Self.Width,Self.Height),0,0,
    AllCorners,1);

  Canvas.Fill.Color:=TAlphaColorRec.Null;

  Canvas.DrawRect(RectF(0,0,FUserWidth,ZH),0,0,
    AllCorners,1);

  Canvas.DrawLine(PointF(0,0),PointF(100,100),1);
  Canvas.EndScene;
end;

es zeigt sich nix also keine Linie oder eine Roter Kasten, waqs mach ich da falsch