Ну, надо проверять, но что-то типа:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var n1,n2:int64;
begin
n1 := StrToInt64(Edit1.Text);
asm
push eax;
push ebx
mov eax, n1
mov ebx, $0000FF00
xor eax,ebx
mov n2, eax;
pop ebx;
pop eax;
end;
Edit2.Text := IntToStr(n2);
end;
PS. Еще раз без тегов напишешь - получишь бан на неделю.