加载表单问题

问题是：
程序有个主表单，通过主表单掉用其它的表单，
子表单，里是个DBGRID，DBGRID的大小是有表单的大小定的，

procedure Tld_table.FormCreate(Sender: TObject);
begin
//设置表的大小
DBGrid1.Width:=ld_table.Width-10;
DBGrid1.Height:=ld_table.Height-120
end;

procedure Tld_table.FormPaint(Sender: TObject);
begin
//设置表的大小
DBGrid1.Width:=ld_table.Width-10;
DBGrid1.Height:=ld_table.Height-120


现在是用主表单中的一个按钮掉用子表单的

procedure Tzygl.Button8Click(Sender: TObject);
var
ld_table:Tld_table;
begin
ld_table:=Tld_table.create(self);
ld_table.showmodal;
end;
但运行时就在
procedure Tld_table.FormCreate(Sender: TObject);
procedure Tld_table.FormPaint(Sender: TObject);
这两个地方报错，不知道这是什么原因。
本人刚学DELPHI，有好多问题不明白，
希望有高手帮帮小弟。。
感谢了！！！！