Delphi-PRAXiS - Delphi Zwei Tabellen in einer Datenbank?

Ich möchte ein einer Datenbank zwei Tabellen erzeugen. Ich kann aber nur eine erzeugen. Versuche ich eine zweite zu erzeugen, bekomme ich eine Fehlermeldung.

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

OpenDialog1.Title := 'Neue Datenbank erstellen';

  if OpenDialog1.Execute then

  begin

    ABSDatabase1.DatabaseFileName := OpenDialog1.FileName;

    ABSDatabase1.DatabaseName := ExtractFileName(ChangeFileExt(OpenDialog1.FileName,''));

    ABSDatabase1.CreateDatabase;

    ABSDatabase1.Open;

  end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

    ABSTable1.DatabaseName := ExtractFileName(ChangeFileExt(OpenDialog1.FileName,''));

    ABSTable1.TableName := ExtractFileName(ChangeFileExt(OpenDialog1.FileName,''));

    ABSTable1.FieldDefs.Clear;

    ABSTable1.FieldDefs.Add('id',ftAutoInc,0,False);

    ABSTable1.FieldDefs.Add('Name',ftString,20,False);

    ABSTable1.FieldDefs.Add('Vorname',ftString,20,False);

    ABSTable1.CreateTable;

    ABSTable1.Open;

    ABSTable1.Append;

    ABSTable1.Post;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

    ABSTable2.DatabaseName := ExtractFileName(ChangeFileExt(OpenDialog1.FileName,''));

    ABSTable2.TableName := 'Zusatz';

    ABSTable2.FieldDefs.Clear;

    ABSTable2.FieldDefs.Add('Nu_id',ftAutoInc,0,False);

    ABSTable2.FieldDefs.Add('Anrede',ftString,20,False);

    ABSTable2.FieldDefs.Add('Ort',ftString,20,False);

    ABSTable2.CreateTable;

    ABSTable2.Open;

    ABSTable2.Append;

    ABSTable2.Post;

end;

Was mach ich da Falsch?

Heike.