关于show窗体返回值的问题(100分)

我需调用一个show窗体，这个窗体关闭后要返回一个数值怎么实现（封装在Dll）
类似delphi语言中在控件后面点‘.’后出现的‘方法属性’列表那样的功能

function DllForm(): Boolean;
stdcall;
begin
Application.handle := aHandle;
{ 将过程的句柄赋值为调用者的句柄 }
with TForm1.Create(Application)do
try { 创建窗体 }
ShowModal;
{ 模式化显示窗体 }
finally
result := False;
{Dll 注销窗体时返回值}
Free;
{ 调用结束时销毁窗口 }
end;
end;

返回stringlist类型/自定义类型,然后自己写解析.
重载 create ,show 方法.

定义一个timer,55一次,初始为False!
Var
tempForm: TForm = Nil;
getformres:boolean=false;
Function CreateAform():Boolean;
begin
Call DLL 建立Form;
DLLForm.Show;
// 1. 建立tempForm后立即启动时钟!
timer1.enabled:=true;

While Truedo
begin
Application.Processmessage;
if getformres then
break;
end;
Result:=
end;

2. timer事件:
procedure tform1.timer1timer();
begin
if tempform<>nil then
exit;
timer.enabled:=false;
// 动态建立的Form已经关闭!
// 或
getformres:=true;
end;

窗体一定为show模式
能否给一个例子