Ошибка при старте No table name assigned

[Moneo]

При старте программы выскакивает ошибка: No table name assigned
Использую встроенный interbase в Delphi XE3 Update1 и Firebird 2.5.

Таблицы создаю динамически поэтому поля tablename не заполняю в редакторе, заметил такую вещь что некоторые заполняются сами по названию компонента (name:ibtable1,tablename:ibtable1) - может как раз на это жалуется. Привожу код активации и создания формы - остальное думаю не имеет никого отношения:

[CODE]
procedure TForm1.FormCreate(Sender: TObject);
var
 finifile:TIniFile;
begin
{ibtransaction1.StartTransaction;}
{ISNagScreenShown := true; }
{finifile:=Tinifile.create(extractfilepath(application.ExeName)+'config.ini');
finifile:=Tinifile.create('C:\kbmk_test\Win32\Debug\config.ini');
{Ibdatabase1.databasename:=finifile.readstring('Base','Path','');
Ibdatabase1.databasename:='BASE.FDB';
FiniFile.Free;                             }
AddFontResource('fonts\HeliosCondC.otf');
AddFontResource('fonts\HeliosCondC-Bold.otf');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;

procedure TForm1.FormActivate(Sender: TObject);
var
list:tstringlist;
i:integer;
begin
list:=tstringlist.Create;
datamodule1.ibdatabase1.GetTableNames(list);
if list.indexof('OPTIONS_GLOBAL')=-1 then
begin
frame31.ibtable1.active:=false;
frame31.ibTable1.Database:=datamodule1.ibdatabase1;
frame31.ibtable1.TableName:='OPTIONS_GLOBAL';
frame31.ibtable1.FieldDefs.clear;
frame31.ibtable1.fielddefs.add('groups',ftblob,0,false);
frame31.ibtable1.FieldDefs.add('pass',ftblob,0,false);
frame31.ibtable1.FieldDefs.add('admpass',ftblob,0,false);
frame31.ibtable1.FieldDefs.add('check',ftinteger,0,false);
frame31.ibtable1.CreateTable;
frame31.ibtable1.Active:=true;
frame31.ibtable1.close;
frame31.ibtable1.TableName:='OPTIONS_GLOBAL';
frame31.ibtable1.open;
frame31.ibtable1.Database:=datamodule1.ibdatabase1;
frame31.ibtable1.Active:=true;
edit1.Text:=frame31.ibtable1.TableName;
frame31.ibtable1.edit;
frame31.datasource1.Edit;
form1.Width:=658;

form1.Height:=551;
end else  edit1.Text:=frame31.ibtable1.TableName;

frame21.Combobox1.Items.Clear;
frame21.Combobox1.Items.AddStrings(list);
N:=POS('_',frame21.ComboBox1.items.Text);
if n<>0 then
begin
for i:=frame21.ComboBox1.Items.Count downto 0 do
if Pos('_', frame21.ComboBox1.Items.Strings[i])<>0 then
frame21.ComboBox1.Items.Delete(i);
frame21.ComboBox1.Sorted:=true;
end;
frame21.Combobox1.sorted:=true;
frame21.Combobox1.text:=frame21.Combobox1.items[0];
frame21.ibtable1.tablename:=frame21.combobox1.text;
frame21.ibtable1.active:=true;
frame21.ibtable1.edit;
frame21.ibtable1.First;
while not frame21.ibtable1.Eof do begin
frame21.combobox2.Items.Add(frame21.ibtable1.Fieldbyname('id').asstring);
frame21.ibtable1.Next;
end;


end;
[/CODE]

[Аватар]

Небось и Connected, и Active в True выставлены в среде разработки

[Moneo]

Сообщение от Аватар

Небось и Connected, и Active в True выставлены в среде разработки

нет конечно все в коде
Методом блокировки нашел что ошибка в FormACtivate а где понять не могу
Все разобрался проблема была в строке frame21.Combobox1.text:=frame21.Com bobox1.items[0]; в Комбобоксе не было такой строки.

[Аватар]

Вот это не понятно

frame31.ibtable1.open;
frame31.ibtable1.Database:=datamodule1.ibdatabase1;
frame31.ibtable1.Active:=true;

И для полного счастья - на какой команде исключение подымается?