怎样在程序里给db文件增加一个字段？源码(100分)

各位大虾：
我有一个现有的db文件，里面有字段和记录，我想再加一个字段，该怎么加，要源码！

怎样用代码增加一个浮点类型的字段
使用SQL 语句
alter table table1 add column gongzi decimal(20,2)

这是一个程序中修改表的结构的段落，请参考。
这还是我两年前写的玩意。
//临时库的产生
with Table1 do begin
TableName:='db_temp.db';
if Table1.Exists then begin
Table1.Active:=False;
Table1.DeleteTable;
end;
with FieldDefs do begin
clear;
with AddFieldDef do begin
Name:='CL_ID';
DataType:=ftString;
Size:=5;
end;
with AddFieldDef do begin
Name:='CL_name';
DataType:=ftString;
Size:=18;
end;
with AddFieldDef do begin
Name:='CL_gg';
DataType:=ftString;
Size:=18;
end;
with AddFieldDef do begin
Name:='CL_dw';
DataType:=ftString;
Size:=4;
end;
with AddFieldDef do begin
Name:='CL_dj';
DataType:=ftFloat;
end;
with AddFieldDef do begin
Name:='CL_sn';
DataType:=ftFloat;
end;
with AddFieldDef do begin
Name:='CL_je';
DataType:=ftFloat;
end;
end;
CreateTable;
Active:=True;
end;

大哥：
不对的把，他把我以前的记录删了，
我是这样写的
with outtable do begin
tablename:=edit2.Text;
if outtable.Exists then begin//ok
outtable.Active:=False;
outtable.DeleteTable;
end;//of if
with fielddefs do begin //ok
clear;
with AddFieldDef do begin//ok
Name:='CL_ID';
DataType:=ftString;
size:=5;
end;//of while addFieldDef
end;//of while fielddef
createtable;
outtable.Active:=true;
end;//of while outtable
showmessage('ok');

使用SQL语句
alter table tablename add column columnname type

try
query1.close;
query1.sql.clear;
query1.sql.add('alter table a add b int');
query1.execsql;
except
end;