1:
2:
3:
4:
5:

------1------
------2------
5-----3-----4

A-----B-----C					

1:
2:
3:
4:
5:
6:

-----1-----
-----2-----
-----3-----
-----4-----
-----5-----
A----B----B					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

Program TowersOfHanoi;
Procedure MoveTower (N : Integer; aFromField, aToField, aUsingField : Integer);
// Bewege N Scheiben von aFromField nach aToField. Dabei wird aUsingField als Hilfsfeld benutzt.
Begin
// Verschiebe erstmal N-1 Scheiben von 'From' nach 'Using' mit Hilfe von 'To'
// Natürlich nur, wenn überhaupt noch ein Turm da ist
  If N>1 Then
    MoveTower (N - 1, aFromField, aUsingField, aToField);

// Bewege nun die unterste Scheibe von 'From' nach 'To'
  Writeln(aFromField,'->',aToField);

// Und zu guter Letzt: Verschiebe die N-1 Scheiben von 'Using' nach 'To' mit Hilfe von 'From'
  If N>1 Then
    MoveTower (N - 1, aUsingField, aToField, aFromField);
End;

Procedure Main;
Var
  N : Integer;

Begin
  Write ('Türme von Hanoi. Wie hoch ist der Turm [1-100] ? > '); ReadLn(N);
  MoveTower (N,1,3,2); // Bewege N Scheiben von 1 nach 3 mit Hilfe von 2.
End.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Procedure MoveTower(N : Integer; aFromField, aToField, aUsingField : Integer);
Begin
  If N > 1 Then
    MoveTower (N - 1, aFromField, aUsingField, aToField);      
  Form1.ListBox1.Items.add(inttostr(aFromField) + ' nach Feld ' + inttostr(aToField) + ' bewegen');
  If N > 1 Then
    MoveTower (N - 1, aUsingField, aToField, aFromField);
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
  form1.ListBox1.clear;
  MoveTower(strtoint(edit1.text), 1, 3, 2);
end;