Grafische Lösung der Türme von Hanoi (Rekursion)

[Hanoi1]

Eine Kleinigkeit noch:
Durch

Delphi-Quellcode:

While Form1.Timer1.Enabled = true do
begin
  Application.Processmessages;
  Sleep(10);
end;

friere ich das Programm mit Ausnahme des Timers ein. Ohne das funktioniert der Algorithmus ja auch nicht.

Wenn ich jetzt aber beispielsweise 10 Scheiben generiere und die Lösung aktiviere, dauert das ja seine Zeit, bis das Programm "entfriert".

Darum wollte ich einen neuen Knopf einfügen, der den Timer anhält (z.B. close; ).
Das geht aber nun natürlich nicht...

Gibt es eine Möglichkeit das umzusetzen?