Перевод Си на Delphi. Что я делаю не так?

[munthrekosh]

#include <stdlib.h> 
#include <stdio.h> 
 
typedef unsigned char BYTE; 
 
void Decode(void){ 
 BYTE *Buf=0; 
 __asm{ 
 mov eax,[ebp+4] 
 mov Buf,eax 
 } 
 BYTE size=Buf[0]; 
 Buf[0]=0x90; 
 for(int i=1;i<=size;i++){ BYTE v=Buf[i]; v^=0xFF; Buf[i]=v; } 
}

procedure TForm1.Decode;
var
  PBuf: PByte;
  Buf, size, v: Byte;
  i: Integer;
begin
  Buf:=0;
  PBuf:= @Buf;
  asm
    mov eax,[ebp+4]
    mov PBuf,eax
  end;
  size:=(Buf[0])^;
  Buf[0]:=144;

  for i:= 1 to size do
    begin
      v:=Buf[i];
      v:= v xor 255;
      Buf[i]:=v;
    end;
end;