Работа с динамическими объектами

[medved6216]

Описание:
работа с БД.
Создается динамическая вкладка с объектами типа edit и memo и кнопками.
Кнопке делаю обработчик:

procedure TForm1.SQLInsertClick(Sender: TObject);
var
inser, ins, ins2 : string;
begin
  (sender as tsbitbtn).Enabled := false;
  inser := edittb[0].Text + ',"' + Datetb.text + '","' +
         memotb[2].Text + '","' + comboxtb[3].Text + '","' + comboxtb[4].Text + '","' +
         edittb[5].Text + '","' + comboxtb[6].Text + '","' + memotb[7].Text + '"';
  sqlinsert(query, base, alcol, inser);

end;

procedure TForm1.SQLInsert(var query : tquery;
table,colons,insert : string);
var
sql : string;
begin
query.Active := false;
query.Close;
query.SQL.Clear;
sql := 'insert into ' + table + ' (' + colons + ') values (' +
 insert + ')';
query.SQl.Add(sql);
query.ExecSQL;
query.sql.Clear;
sql := 'select '+ col + ' from ' + base;
query.SQl.Add(sql);
query.ExecSQL;
query.Active := true;
colonsname;
end;

С обработчиком все впорядке, все добавляется. Но работает только с одной открытой вкладкой, последней. Если будет две вкладки, и последнюю закрыть и попытаться добавить инфу в базу то, выкинет ошибку. Суть ошибки заключается в том, что он не находить полей edit, memo и т.д. Это понятно. Потому, что я разрушил прошлую вкладку(tb.destroy);
Вопрос: Как мне добиться сохранения элементов на вкладке, чтобы если закрыть последнею вкладку, с первой можно было бы работать так же.

[Баламут]

Надеюсь тип "вкладки" я угадал.

var
  i: integer;
begin
  for I := 0 to PageControl1.ActivePage.ControlCount - 1 do
  begin
    if PageControl1.ActivePage.Controls[i] is TEdit then
    begin
      ShowMessage((PageControl1.ActivePage.Controls[i] as TEdit).Text);
    end;
  end;

Идея понятна?

[medved6216]

Идея понятна как мне теперь зацепить первый объект этого класса, а как второй? ) Мозги уже устали

[Аватар]

Свойство Tag объектов можно для этого использовать