Probleme mit DB und Schleife

[aaaaaaaaaa_10]

Funktioniert irgendwie nicht. Ich muss ja erst die DB erstellen:

Delphi-Quellcode:

procedure TFiles.DatenbankErstellen;
var
    sl : TStringList;
    i : integer;
    Label SprungDB;
begin
  if check1 = false then
  begin
    sl := TStringList.Create;
    try
      sl.Delimiter := #9;
      sl.DelimitedText := TabHead;  //Tabellenkopf
      t := TTable.Create(nil);
      count := sl.Count;
      with t do
      begin
        Close;
        if not Fileexists (ExtractFilePath(application.exename)+'Datenbank_'+Kennung+'.db') then
        begin
          TableName := ExtractFilePath(application.exename)+'Datenbank_'+Kennung+'.db';
          TableType := ttParadox;
          with FieldDefs do
          begin
            Clear;                                       
            Add(sl.Strings[0], ftDate, 0, False);           
            Add(sl.Strings[1], ftTime, 0, False);           
            for i := 2 to sl.Count-1 do                    
            begin
              Add(sl.Strings[i],ftFloat,0,False);
            end;
          CreateTable;
          end;
        end else
        begin
          TableName := ExtractFilePath(application.exename)+'Datenbank_'+Kennung+'.db';
          TableType := ttParadox;
          goto SprungDB;
        end;

SprungDB:
           //Timer für Datenbank zur Laufzeit erstellen
               DatenbankFuellen(nil) // <------------------------------------------------------
          MyTimer3 := TTimer.Create(nil);
          MyTimer3.Enabled := True;
          MyTimer3.Interval := 300000;    
          MyTimer3.OnTimer :=  DatenbankFuellen;
     check1 := true;
   end;
    finally
      Free;
      sl.Free;
    end;
  end;

end;

Und dann kann ich diese erst füllen. Hab daher DatenbankFuellen an obige Stelle geschrieben. Aber geht auch nicht