1. При использовании ассемблера не стоит мешать его с паскалем. То есть вместо
А>function JustTest(p:pchar):integer;
А>begin
А> asm
.......
А> end;
А>end;

надо писать просто
А>function JustTest(p:pchar):integer;
А> asm
.......
А> end;

Иначе на некоторых версиях Delphi есть некоторые глюки.

2. В твоём случае надо так:

function JustTest(p:pchar):integer;
asm

mov ecx,[eax] //Считываем 32 бита данных по адресу p.

mov [eax],ecx //Записываем их обратно.

mov eax, 0 // == Result:=0
end;