请大家帮个忙吧！谢谢了

Question

我在一个DBGrid里面增加了三个按钮，第一个按钮是＂增加＂，点击它跳到另个一
ＦＯＲＭ里面，里面有一个下面图：
　　　　名称（lable1）：＿＿_(edit1)
        数量（lable２）：＿＿_(edit２)
　　　　编号（lable３）：＿＿_(edit３)
　　
　　　　确定（ＢＵＴＴＯＮ）　　　　　取消（ＢＵＴＴＯＮ）
现在的问题是怎么样写代码，我点击＂确定＂后，可以让我输入的ＥＤＩＴ内容保存到我的ＤＢＧＲＩＤ里面的表呢
谢谢大家来帮忙啊，我想了好久啊，不会做啊

Answer 1

另个一
ＦＯＲＭ里面
  published
    function showmodal(out name,bianhao:string;out num:integer):integer;overload;
end;
……
var
form2:Tform2;
Fname,Fbianhao:string;
Fnum:integer;implementationfunction Tform2.showmodal(out name,bianhao:string;out num:integer): integer;
begin
……                    //想要初始化的操作
inherited showmodal;
result:=ModalResult;
name:=edit1.text;
num:=strtoint(edit2.text);
bianhao:=edit3.text;
end;
------------------------------------------------------在主界面新增或者修改按钮with Tform2.creat(self) do
begin
if showmodal('名称','编号',1000000000)=mrok then
 showmessage(成功)
else
 showmessage(未成功);
free;
end;

Answer 2

var
name,bianhao:string;
num:integer;
begin
……
with Tform2.creat(self) do
begin
if showmodal(name,bianhao,num)=mrok then   //刚才写错
 showmessage(成功)
else
 showmessage(未成功);
free;
end;
end;