hvad er fejlien i denne del?

Hej eksperter er der en som lige kan fortælle mig hvad jeg har gjort forkert på denne del...

procedure TForm7.Timer1Timer(Sender: TObject);
var
I:integer;
begin
timer1.Enabled := false;
for I := 1 to 100 do
begin
  progressbar1.StepIt;
  sleep(33);
  Label2.Caption:=\'Databaser indlæst...\';
  progressbar1.StepIt;
  sleep(66);
  Label3.Caption:=\'MP3 afspiller indlæsses...\';
  progressbar1.StepIt;
  sleep(99);
  Label3.Caption:=\'Indlæsning Fuldført...\';
end;
end;

procedure TForm7.FormCreate(Sender: TObject);
begin
progressbar1.Step := 3;
progressbar1.Max := 100;
timer1.Interval := 15000;
timer1.Enabled := true;
begin
  close;
  Form6.show;
end;
end;

Kan ikke selv lige finde ud af det... Håber i kan hjælpe mig