本人的程序是这样的:
procedure TFormmain.Button2Click(Sender: TObject);
var
il_pinterface: Pointer;
il_ret: integer;
ls_p:pchar;
begin
il_pinterface := newinterfacewithinit('10.81.39.254', 8080, 'ProcessAll');
if (start(il_pinterface, 200017)<0) then exit;
ls_p:=StrAlloc(1024);
if (run(il_pinterface)<0) then
   begin
   getmessage(il_pinterface, ls_p);
   showmessage(ls_p);
   exit;
   end;
end;编译时
[Error] Unitmain.pas(64): Undeclared identifier: 'run'