TTable: In vorhandener Datenbank Spalte hinzufügen/löschen

[maladarse]

danke erstmal!es ist so, dass die spalte zu der tabelle hinzugefügt wurde.
nur, auch wenn ich Query schließe und dann wieder öffne, ist die spalte nicht sichtbar,
und auch, wenn ich das programm aus der entwurfsansicht heraus starte und zum entwurf zurückkehre,
fehlt die spalte in fielddefs.
procedure TForm1.Button3Click(Sender: TObject);
begin
s:='alter table '+ edit1.Text+' add '+edit2.Text +' char(100)';
q1.SQL.Add(s);
t1.Close;
ds1.DataSet:=q1;
q1.ExecSQL;
q1.Close;
s1:='select* from ' +edit1.text ;
q1.SQL.Clear;
q1.SQL.Add(s1);
q1.Open;
end;