procedure TForm1.Button4Click(Sender: TObject);
Var
 S: String;
begin
 Asm
  mov eax,1;
  @@something:
 { cmp eax,0;
  je @@oK;}
  nop;
  nop;
  cmp eax,1;
  jge @@here;
  Ret;
  @@here:
  Dec Eax;
  Call @@Something;
{  @@OK:
  pop Eax;
  jmp Eax;}
 End;
end;