procedure TForm2.Create1Click(Sender: TObject);
begin
IBDatabase1.DatabaseName := 'c:\db\raetsel.fdb';
  with IBQuery1 do
   begin
      Active:=False;
      sql.Clear;
      sql.Text := 'DROP TABLE tabelle'+ Edit2.Text ;
      Active:=true;
      IBTransaction1.Commit;
      sql.clear;
      Active:=false;
      sql.text := 'CREATE TABLE tabelle'+ Edit2.Text +'(Feld001 varchar(50) collate de_de, Feld002 varchar(250) collate de_de)';
      Active:=true;
      IBTransaction1.Commit;
   end;
ibdatabase1.Close;
end;