关于调用过程中变量的问题

我定义的一个过程被调用
procedure zf(Gs:real;Gm:real);
var
 Gsmj,bsm:real;
begin
 Gsmj:=Gs+Gm;
 bsm:=Gs/Gm;
end;
主程序
procedure TForm1.Run1Click(Sender: TObject);
begin
Gs:=strtofloat(form1.Edit1.Text);
Gm:=strtofloat(form1.Edit2.Text);
zf(Gs,Gm);//调用
Gsmj:=floattostr(form1.label1.caption);//我想将这两个变量显示可是显示结
                                         为0，怎么将编的程序中的到的变量
                                         能显示在主程序中？
Gm:=floattostr(form1.label2.caption);
end;