Auf RichEdit zeichnen

[F.W.]

Halli hallo!

Ich habe seit 2 Tagen die Vostellung auf ein RichEdit zu zeichnen, hatte aber bis eben keine Zeit. Aber es hat auch nicht funktioniert!

Delphi-Quellcode:

  TREEx = class(TRichEdit)
  private
    procedure WMPaint(var Msg: TWMPaint); message WM_Paint;
  end;

    { ... }

procedure TREEx.WMPaint(var Msg: TWMPaint);
var
 C: TCanvas;
begin
 C := TCanvas.Create;
 try
   C.Handle := Msg.DC;
   C.Ellipse(10, 10, 100, 100);
 finally
   C.Free;
 end;
end;

Aber wenn's zum zeichnen in der WMPaint Methode kommt, bekomme ich ein Fehler, dass ich auf der Leinwand nicht zeichnen darf!
Welche Wege gibt es noch, um auf ein RichEdit zu zeichnen?

Danke schonmal!