Delphi Inline Assembler

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
str: string;

{ Result := x + y }
function add1(x, y: Integer): Integer;
begin
asm
mov eax, x
add eax, y
mov @Result, eax
end;
end;

{ for I := 0 to Length(s) do s[i] := lower(s[i]) }
function test2(s: PChar): PChar;
begin
{ nest asm stmts inside a normal delphi proc then registers and flag are handled by delphi }
asm
mov ebx, s
xor esi, esi
@lab1:
cmp byte ptr [ebx + esi], 0
jz @lab2
or byte ptr [ebx + esi], $20
add esi, 1
jmp @lab1
@lab2:
mov @Result, ebx
end;
end;

begin
str := 'dO yOu kNoWn wHaT i MeAn?';

{ TODO -oUser -cConsole Main : Insert code here }
WriteLn(add1($FFFFFFFF, 2));
WriteLn(test2(PChar(str)));
end.