Testar em D3
procedure CriarTabela( var Var1: String; etc...);
begin
Table1.FieldDefs.Add(Var1, ftInteger, 0,True);
end;