function fun_show(i:intger):Boolean;
var
Myform:TFrmSetup;
begin
Myform := TFrmSetup.Create(nil);
if i= 1 then
Myform.edit1.text ='1'
else
Myform.edit1.text ='其余';
Myform.showmodal;
Myform.free;
function fun():Boolean;
begin
with TFrmSetup.Create(nil) do
begin
if ShowModal=mrOK then
begin
self.Edit1.text := Edit1.text;
Result := True;
end else
Result := False;
end;
end;