Delphi-PRAXiS - Delphi Create Tables

Hi,
mein problem ist folgendes:

Wenn ich eine Datenbank neu anlege(CreateDatabase) und INNERHALB dieser procedure die Tables MIT anlege('CREATE TABLE MySQL1 ') funktioniert alles bestens! Auch die Tables werden angelegt.
Wenn ich jedoch die Zeile tables_anlegen (siehe Pfeil) herausnehme und somit nur eine leere Datenbank erzeuge, dann das Programm verlasse und wieder
neu starte und die procedure 'Tables_anlegen' über einen Button starte kommt die Runtimeerror : 'Operation cancelled at users request.'
Was kann ich da machen?

Delphi-Quellcode:

			(*  DataBase + Tables anlegen DataBase + Tables anlegen *)

          (*  TEIL1 --- TEIL1 --- TEIL1  *)

(******************************************************************************)

 procedure TForm3.SpeedButton2Click(Sender: TObject);

(******************************************************************************)

VAR DBPath   : STRING;

    MyResult : String;

const

  cCreateTxt = ' %d. Versuch: Datenbank wird erstellt...';

  cReadyTxt  = 'Datenbank wird erstellt!';

begin

  MyResult        := GetCurrentDir;  // bestimmen des Arbeitsverzeichnisses

  g_ArbeitsVerz   := MyResult;

  g_DBPfad        := g_ArbeitsVerz + '\DB';

  DBPath          := g_DBPfad + '\My_IB_DB.gdb';

  EditDBPath.Text := DBPath;

  If not FileExists(g_DBPfad + '\My_IB_DB.gdb') then

  begin

    Screen.Cursor := crHourGlass;

    If DataModule2.IBD.LoginPrompt = TRUE THEN DataModule2.IBD.LoginPrompt := FALSE;

    IF DataModule2.IBD.Connected   = TRUE THEN DataModule2.IBD.Connected   := FALSE;

    DataModule2.IBD.Params.Clear;

    try

      try

        StatusBar1.SimpleText := Format(cCreateTxt, [1]);

        StatusBar1.Refresh;

        with DataModule2.IBD do

        begin

          DatabaseName := EditDBPath.Text;

          Params.Add(Format('USER ''%s''',[EditUserName.Text]));

          Params.Add(Format('PASSWORD ''%s''', [EditPassword.Text])); // nur so geht es

          SQLDialect:= 3;                                             // mit Dialekt 3 !

          Params.Add('PAGE_SIZE 4096');                               // SQLDialect'3'-->

          Params.Add('DEFAULT CHARACTER SET ISO8859_1');              // wahrscheinlich wegen

          CreateDatabase;                                                  // Double-Quotes !!

        end;

        StatusBar1.SimpleText := cReadyTxt;

  -->>  tables_anlegen;

        SpeedButton3.Enabled := False;

        except

        on E:EDatabaseError do                            //  IBD.Params.Add( Format( 'USER ''%s''', [Username] ) );

                                                          //  IBD.Params.Add( Format( 'PASSWORD ''%s''', [Password] ) );

        begin

          MessageBeep(MB_ICONEXCLAMATION);

          MessageDlg(E.Message, mtError, [mbOk], 0);

        end;

      end;

      finally

      Screen.Cursor := crDefault;

    end;

  end ELSE ShowMessage(' Die Datenbank existiert schon !');

end;

Delphi-Quellcode:

			(*  DataBase + Tables anlegen DataBase + Tables anlegen *)

          (*  TEIL2 --- TEIL2 --- TEIL2  *)

(******************************************************************************)

 Procedure TForm3.Tables_anlegen;

(******************************************************************************)

VAR s,t  : STRING;

begin

   s :=  'CREATE TABLE MySQL1 '

       + '('

       + ' ID1 INTEGER NOT NULL PRIMARY KEY, '

       + ' Stock CHAR(35), '

       + ' Ind CHAR(15), '

       + ' IndPe INTEGER NOT NULL, '

       + ' LongAm DATE, '

       + ' PriceLong NUMERIC(15,2), '

       + ' ShortAm DATE, '

       + ' PriceShort NUMERIC(15,2), '

       + ' Days INTEGER, '

       + ' Profit NUMERIC(15,2), '

       + ' SumProfit NUMERIC(15,2), '

       + ' Balance NUMERIC(15,2) '

       + ');';

   t :=  'CREATE TABLE MySQL2 '

       + '('

       + ' ID2 INTEGER NOT NULL PRIMARY KEY, '

       + ' BuyAndHold NUMERIC(15,2), '

       + ' Commission NUMERIC(15,2), '

       + ' SumComm NUMERIC(15,2) '

       + ');';

  with Datamodule2 do

  begin

  IF IBD.LoginPrompt = FALSE THEN IBD.LoginPrompt := TRUE;     (* ohne Login geht nichts ?? *)

  //zur Datenbank verbinden

  IF IBD.Connected   = FALSE THEN IBD.Connected   := TRUE;

  //neue Transaktion starten

  if not IBT.InTransaction then IBT.StartTransaction;

  //SQL-String setzen

  IBSQL.SQL.Clear;

  IBSQL.SQL.Add(s);

  //SQL Anweisung ausführen

  IBSQL.ExecQuery;

  //SQL-String setzen

  IBSQL.SQL.Clear;

  IBSQL.SQL.Add(t);

  //SQL Anweisung ausführen

  IBSQL.ExecQuery;

  IBT.Commit;

  IBD.Connected := false;

  end;

end;