delphi 问题 高手来帮忙解决下

function WinProc(hWnd: HWND; uMsg: UNIT; wParam: WPARAM; lParam: LPARAM):LRESULT;stdcall;
var
p: point;
begin
asm
call label
label:
pop ecx
sub ecx 10
mov p ecx
end;

//-------------------------------
Do Something
end;

报错提示Label未定义

哪儿错误?

答案：
楼上错误 
delphi里面定义Label是使用的汇编方法定义
没有冒号的
function WinProc(hWnd: HWND; uMsg: UNIT; wParam: WPARAM; lParam: LPARAM):LRESULT;stdcall;
var
    p: point;
label  label0; //没有:号的
begin
  asm
    call  label0
label0:
    pop ecx
    sub ecx, 10 //要用,号
    mov p ,  ecx //同理
  end;
  //-------------------------------
 // Do Something
end;
var
p: point;
 label1:Label;//定义
begin
....
call label1//改一下
label1://改一下

上一个：delphi和C语言到底哪个实用？
下一个：delphi下拉列表关联显示不出数据