这段代码错在哪里？？？？？

Question

interface
……
uses
……
type
……
privateprocedure AssignSubject(ReceiveString:string);public
……procedure Tfrmmain.AssignSubject(ReceiveString:string);
begin
if GetMaskString(ReceiveString, 2)= 'select' then//GetMaskString是我自订的函数，这里报错。
begin
…………
end;
end;如果把以上过程写在
procedure Tfrmmain.ServerClientRead(Sender: TObject;Socket:TCustomWinSocket);
begin
if GetMaskString(ReceiveString, 2)= 'select' then//这里不报错
begin
…………
end;
end;

Answer 1

报错信息？
断点跟一下，看看具体错误在哪？
跟到GetMaskString里！

Answer 2

GetMaskString函数我没有在开始声明，但我发现不声明也可以用。
但是未声明的函数可以在已有的过程中调用，在自订过程中就不能再调用自订函数了，是这样吗？

Answer 3

GetMaskString如果不在private或public声明
在GetMaskString函数代码所在位置前的代码如果用了GetMaskString则编译出错，反之则可以用