[NumLock]

Код:

while true do
begin
  ...
  break;
end;