[src]SQL := 'alter table TableName add FieldX varchar(10)'
Q.SQL.Text := SQL ;
Q.Execute ;
[/src]