Schleifen in Delphi

[Sharky]

Hai Plague,

hier also mein Beispiel einer Schleife:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  unsinn : Integer;

LABEL kuckkuck;

begin
  unsinn := 0;
  kuckkuck:
  Inc (unsinn);
  Label1.Caption := IntToStr  (unsinn);
  if (unsinn <10) then goto kuckkuck;
end;