DBGrid

Как програмно создать колонку в DBGrid.
Например такой код выдает ошибку.

<code>procedure TForm3.FormActivate(Sender: TObject);
var i:integer;
TempTable:TTable;
begin
TempTable:=TTable.Create(nil);
with TempTable do
begin
DatabaseName:='database';
TableName:='TempTable';
TableType:=ttParadox;
{Создать поля}
with FieldDefs do
begin
Add('Book', ftString, 30, true);
Add('Invoice', ftinteger, 0, false);
Add('Amount', ftInteger, 0, false);
Add('Price', ftInteger, 0, false);
end;
CreateTable;
end;
DataSource1.DataSet:=TempTable;
DBGrid1.DataSource:=DataSource1;
for i:=0 to 3 do
begin
DBGrid1.Columns.Add;
DBGrid1.Columns.FieldName:=TempTable.Fields.FieldName;
end;
end;
</code>