关于goto 语句

Question

Function Tform1.getCPGRID_DIMENSION(sFile : String) : Boolean;
label END_OF_LOCATE;
var
s:string;
beginif  ....thengoto END_OF_LOCATE;END_OF_LOCATE:
beginend;
end;标号的语句段内用加begin..end;吗？
我的总出错
[Error] Unit1.pas(49): Label declared and referenced, but not set: 'END_OF_LOCATE'
[Error] Unit1.pas(143): Declaration expected but identifier 'END_OF_LOCATE' found还有一个：
在同一unit内函数a调用函数b定义的位置有哪些要求吗？
我声明了，但总说没有声明啊

Answer 1

function TForm1.etCPGRID_DIMENSION(sFile: string): Boolean;
var
    s: string;
label
    END_OF_LOCATE;
begin    if s <> '1' then
        goto END_OF_LOCATE;    END_OF_LOCATE:
    begin
        showmessage('ok');
    end;
end;