如何传Form对象?高手请帮忙

Question

偶用一个函数,想做为公用.但改了后说找不到按钮spFirst,有没办法解决?请问如何传Form对象?(不好意思,没分了,大家看看也行.)//原函数
function BtnCtr():bool;
begin
        NewStoForm.spFirst.Enabled:=not (NewStoForm.spFirst.Enabled);
end;//改后出错的函数
function BtnCtr(NFom:TForm):bool;
begin
        NFom.spFirst.Enabled:=not (NFom.spFirst.Enabled);
end;

Answer 1

function BtnCtr(var NFom:TForm1):bool;
begin
NFom.btn1.Enabled:=not (NFom.btn1.Enabled);
end;注：指明TForm1

Answer 2

我是楼主:
再请问一下,为什么下面的代码出错?function ReadCtr(var StrAry:Array[1..50] of TEdit):bool;//出错行
begin
    //...
end;