Kann man die Maus durch Kommandos bewegen ?

[LingNeu]

Liebe Delphifans,
Ich habe ein simples Zeichenprogramm über ein Imageobjekt für meine Nichte gemacht ,mit dem ich über die Maus einfache Symbole zeichnen kann.
Jetzt meine Frage:
gibt es eine Möglichkeit, die Mausbewegung und das Drücken der Maustaste zu simulieren (ich habe da zwar einige Artikel hier mit der Suche gefunden, aber es war nicht das passende dabei)?
Ich möchte einige Testsequenzen vorbelegen und dann ablaufen lassen, d.h. z.B. ein beliebiges Zeichenobjekt vorgeben. Meine kleine Nichte hätte dann die Möglichkeit, das nachzuzeichnen.
So ein Code würde sich auch für irgendwelche Werbezwecke anbieten.

Habe schon einiges probiert, ist mir aber leider nicht gelungen.

Die Ereignissprozedure OnMouseDown und OnMouseMove hat ja verschiedene Parameter, die ich übergeben müsste.
Da ich noch ein Newbie bin, hab ich natürlich einige Probleme.

procedure TForm1.ImageMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure TForm1.ImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

Vielleicht hat jemand von euch Lust, mir zu helfen.
vielen Dank für jede HIlfe

LingNeu