Нужно закончить программу перебора кодов

[Zer0]

Скажем так, у ТС для начала не был даже прикреплен обработчик на кнопке
Во-вторых - strToInt не держит столь большие числа, потому и не работало
В-третьих - использование GOTO в подобном коде - извращение

[Serge_Bliznykov]

Zer0, а вас ничего не смущает?

implementation
  function CheckCode(a0:integer;a1:integer): boolean;
...
var
  n1,n2,nomer,reg:int64; code:integer;
...
  rez:=CheckCode(nomer,reg);

[Zer0]

Serge, действительно, на импорт функции совершенно не обратил внимания
Ну тогда напрашиваются два варианта - либо импорт сделан неправильно, либо использовать такие большие значения просто нельзя.
Почему-то напрашивается второй вариант, в таком случае достаточно было присвоить обработчику кнопки то, что создано. Ну и использовать другие значения, а не -999999999