GetCursorPos

[Teekeks]

Ich empfehle dir ein Grundlagen Tutorial zu lesen.

Aber konkret hierzu:
Label1+Label2 nicht gefunden: Du brauchst erstmal auch 2 Labels mit den entsprechenden Namen auf deinem Formular.

Timer1Timer: Hier gibt es gleich mehrere Probleme:
1.) Diese Prozedur wurde nicht oben im Formular mit angegeben.
Also solltest du dieses hier:
procedure Timer1Timer(Sender: TObject); nach dem Image2:TImage; einfügen.
2.) Timer1Timer sollte von einer Komponente namens "Timer1" ausgelöst werden. Ziehe dir eine solche auf dein Formular und gehe im Objektinspektor auf "Ereignisse" und wähle bei "OnTimer" deine Prozedur aus.

Es sieht ganz danach aus als hättest du diese Zeilen einfach nur Kopiert ohne versucht zu haben sie zu verstehen.
Damit wirst du im Programmieren nicht weit kommen und Spaß macht es auch nicht, weil man keinerlei eigene Leistung zeigt. Dann kann man auch gleich ein fertiges Programm nehmen.

Versuche also in Zukunft am besten alles was du irgendwo weg Kopierst (wenn das denn unbedingt sein muss) auch zuerst vollständig zu verstehen, sonst könnte man dir ja noch sonst was gleich noch mit ein schmuggeln.

Doch am allerbesten wäre es, wenn du nichts wegkopieren musst, sondern alles selbstständig schreibst. Da ist die Freude am größten und man ist sich auch sicher das man es verstanden hat was man da geschrieben hat.
Ich weiß natürlich das dies am Anfang noch nicht ganz 100%ig gehen wird, doch darauf solltest du hinarbeiten.