Создание нескольких компонентов сразу в цикле

[artemavd]

Тогда так попробую?

 Form1.pFIBQuery2.Close;
 Form1.pFIBQuery2.SQL.Clear;
 Form1.pFIBQuery2.SQL.Text:='select G.* from T_KATEGORII G,T_TABLE K where G.KATEGORIY=K.KATEGORIYNAME';
 Form1.pFIBQuery2.ExecQuery;