[NumLock]

да все честно:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  FirstTmp: Integer;
  SecondTmp: Integer;
begin
  Sleep(0);
  FirstTmp:=0;
  SecondTmp:=0;
  Tag:=FirstTmp+SecondTmp;
end;