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://改一下