Algorithmus bitte nachprüfen!

[sirius]

1. Also bei der Linie ist der Timer irgendwie falsch. Zumindest wenn ich da eine Schleife drin sehe.
2. keine globale Variablen. die kann man entweder lokal in die procedures legen oder in das formular (unter private)
3. benutzt zum zeichnen ein TImage und nicht das Canvas der Form. Dadurch verschwinden eure Zeichnungen nicht, wenn mal ein Fenster drüber gezogen wird.

Edit: Und im onclose-Ereignis von Form2 solltet ihr wenigstens Form1 wieder anzeigen oder eben das Programm komplett schließen.
Edit2: und in berechne setzt ihr x immer wieder auf xs (also anscheinend xStart [verwendet ma ordentliche Variablennamen!]).