如何建立一个动态表，并进行相关操作？(100分)

我想在一个窗口上动态建立一个表，可是没有显示，问题出在哪里？？谢谢，我是新手。想显示sql中waiter表中的所有数据。
procedure TFrm_waiter.FormShow(Sender: TObject);
pub := tpublic.Create(self);
begin
with Frm_DM.ado_waiter do
begin
close;
sql.Clear;
sql.Text := 'Select * from waiter ';
open;
dbgrid1.SetFocus;
end;
end;

然后想执行的是选中其中一行后，回车或双击鼠标触发一个存储动作。。不知道对不对。
procedure TFrm_waiter.TTRk;
begin
with Frm_DM.ado_tc do
begin
close;
sql.Clear;
sql.Text := 'Select * from tbl_tc ';
open;
insert;
FieldByName('waitername').AsString := Frm_DM.ado_waiter.fieldbyname('name').AsString;
FieldByName('itemname').AsString := Frm_DM.ado_ConsumeList.fieldbyname('项目名称').AsString;
FieldByName('money').AsString := Frm_DM.ado_ConsumeList.fieldbyname('提成金额').AsString;
FieldByName('下单时间').AsString := datetimetostr(now);
end;
close;
end;

procedure TFrm_waiter.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
TTRK;
end;


procedure TFrm_waiter.DBGrid1DblClick(Sender: TObject);
begin
TTRK;
end;

end.

谢谢。。。。。。。谢谢。。。。。。

你说的是本地数据集吧，可以用clientdataset试下