procedure AsmProc1(p:pointer); assembler;
asm
 push esi
 mov esi,dword ptr p
 ...
{entry code}
 ...
 pop esi
end;