Blätter auf einem Stapel zeichnen

[toms]

Hi!

Für ein Vokabelprogramm möchte ich "Blätter auf einem Stapel" (Karteikasten)
zeichnen. (Siehe Bild in der Anlage oder hier.

Ich brauche als eine Funktion, welche mir X Blätter auf einem
Stapel zeichnet.

Vielleicht hat ja jemand lust, mir eine solche Procedure zu schreiben.

Hier mal das Grundgerüst:

Delphi-Quellcode:

procedure ZeichneStapel(Image: TImage; AnzahlBlaetter: Integer);
begin
  // Zeichne Kasten unten
  // Code...

  // Zeichne Blätter
  for i := 1 to AnzahlBlaetter do
  begin
     // Code...
  end;
end;