Schleifenproblem mit Timer

[Mucki]

Guten Abend,
ich möchte folgendes (im übertragenem Sinne) schreiben,
Button1 zeigt ein Laben1 an, nach einer Zeit t,
soll dieses Label1 sich ändern.
Soweit so gut...

Dieser Vorgang soll in einer for-Scleife gepackt werden
und 10 mal wiederholt werden.
Aber leider bleibt das Programm bei

procedure TForm1.Timer1Timer(Sender: TObject)

hängen und meldet: Anweisung erwartet aber procedure gefunden.

Kann mir jemand meinen Fehler nennen ?

Gruß Mucki

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin                             
   for i :=1 to 10 do
     begin
        label1.caption := 'jetzt gehts los...';
        timer1.enabled := true;
     

           procedure TForm1.Timer1Timer(Sender: TObject);
           begin
             Label1.caption := '...na also';
             timer1.enabled := false;
           end;
     end;
end;

end.