程序退出 返回值 望各位大虾指教(100分)

我用delphi作了个面向过程的程序，供其他程序调用，在其他程序调用完我的程序后我的程序要
返回一个值给上面的程序，现在这个返回值搞不定，望你能指点一下迷津，多谢。

TForm1=class
...
end;

var
Form1:TForm1;

function Showyourform:integer;
implement
function Showyourform:integer;
begin
Form1:=TForm.Create(nil);
with form1do

begin
showmodal;
if modalresult=mrok then
设置返回值

Free;
end;
end;

halt(exitcode)
应该是你所想要的吧

非常感谢 jpw 和 wenyue 两位大虾 给份啦