很简单的问题啊，goto(50分)

哪位能给我个goto语句使用的例子，很简单的就可以，主要是那个标签怎么定义？
还有怎样退出当前的过程，记得VB里是exit sub就可以了，delphi里是怎么写的？ []

procedure FindFirstAnswer;

var X, Y, Z, Count: Integer;
label FoundAnAnswer;
begin
Count := SomeConstant;
for X := 1 to Count do
for Y := 1 to Count do
for Z := 1 to Count do
if ... { some condition holds on X, Y, and Z } then
goto FoundAnAnswer;

... {code to execute if no answer is found }
Exit;

FoundAnAnswer:
... { code to execute when an answer is found }

end;

你要的答案都在下面：
定义标签
procedure procedurename（）；
begin
label labelname；
...
Labelname：
.....
exit;
....
goto Labelname;
end；

procedure procedurename（）；
var
label labelname；//定义
begin
...
Labelname：//位置
.....
exit;//退出
....
goto Labelname;//跳转
end；

sorry
china2k is right

谢谢大家[]