Quizás no he entendido muy bien el tema, pero a ver que parece esto:
Código Delphi
[-]
for i:=0 to listbox3.items.count-1 do
if table4.FindField('Exp'+inttostr(i)) <> nil then begin
table4.Insert;
table4.FieldByname('Exp'+inttostr(i)).AsString:=listbox3.Items[i];
table4.Post;
end
else
ShowMessage(' uuuuppss, el campo Exp'+inttostr(i) + ' no existe ');
Otra posibilidad es crearte una tabla llamada "Expresiones" con 2 campos, una de código (para relacionar con la tabla maestra), y otra con las expresiones del tipo "Exp1".."Exp15"
Saludos y espero que vayan los tiros por aqui.