[m1sclick]

Собственно есть код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c: string;
i: integer;
label
shitman;
begin
Application.Minimize;
Edit1.Text:='';
a:= code;
if a = code then
 b:= is;
shitman:
for i:=0 to 99999 do
if i>0 then
begin
  c:= fake;
  Edit1.Text:= a+' '+b+' '+c+'.';
end;
if i<0 then
begin
  c:=true;
  Edit1.Text:= a+' '+b+' '+c+'.';
end;
end;
if CheckBox1.Checked then
begin
  Application.Restore;
  Timer1.Enabled:=true;
  Timer1.Interval:=30000;
  Edit1.Text:='wtf';
  Goto shitman;
end;
Application.Restore;
end;

Собственно ругается на метку. Пишет:

Invalid Pointer Operation

Без метки никак не обойтись разве что копировать весь цикл еще и под оператор проверки CheckBox1. Думаю рациональнее будет использовать метку чем увеличивать код еще на 50 строк.

И вопросы - Почему ругается? Как исправить?
Спасибо за помощь.