At beggining of Table?????

Ребята выручайте. бьюсь уже какой час. Незнаю что и произошло. ранее эта процедура работала все ок. теперь вроде бы тоже, но при открытие созданной этой процедурой таблицы выскакивает эта ошибка "At beggining of Table". Что это за чепуха.
procedure TFrame1.EnOkBClick(Sender: TObject);
var
 Table2  : TTable;
begin
with Table1 do   begin
Active:=False;
FieldDefs.Update;
IndexDefs.Update;
Table2 :=TTable.Create(nil);
Table2.TableName :=Edit3.Text;
Table2.TableType := TableType;
Table2.FieldDefs.Assign(FieldDefs);
Table2.IndexDefs.Assign(IndexDefs);
Table2.CreateTable;
end;

// процедура открытия таблицы
procedure TFrame1.ComboBox1Change(Sender: TObject);
begin
DataSource1.DataSet:=Table1;
Table1.Active:=false;
Table1.TableType:=ttdBase;
Table1.TableName:=ComboBox1.Text+'.dbf';
if TABLE1.TableName <>''  then begin
 Table1.Active:=true;
end else
if (Table1.Name <> ' ') or (Table1.Name  = ' ') then
messagedlg('Строка пуста. Попробуйте еще раз', mtinformation, [mbok], 0);
end;

Может уже создана таблица с таким имененем

А если только при открытии - может ты Table2 и Table1 на один файл наташил

Помоему тут мутняк какойто:
if (Table1.Name <> ' ') or (Table1.Name  = ' ') then
messagedlg('Строка пуста. Попробуйте еще раз', mtinformation, [mbok], 0);
end;

(Table1.Name <> ' ') or (Table1.Name  = ' ') - всегда True

А в какой строке это выскакивает?

ВСЕ!!!!! Нашел в чем ошибка.
Вообщем, я забыл, что у меня при открытии таблицы идет подсчет количества строк
Вот он и выдает ошибку. Ведь At beginning of table - переводится как начало таблицы, то есть строк то нет.