Vergiss nicht, die temporäre Klasseninstanz "MyCanvas" in WriteText freizugeben.
Ansonsten wächst nämlich deine Application im Interval von Timer1.Interval...
Oder man erstellt das Canvas nur einmal.
Folgendes nach OnCreate der Form und das MyCanvas.Free nach OnDestroy.
Delphi-Quellcode:
MyCanvas := TCanvas.Create;
MyCanvas.Handle := GetWindowDC(GetDesktopWindow);