function GetSum(NumCount: integer{N1,N2: integer}): Integer;cdecl;
asm
  {
  push ebp
  mov ebp,esp
  }
  mov ecx,[ebp + 8];//先获取第一个参数值，判断传递了几个参数
  //然后获取每个参数
  mov edx,12
  mov eax,0
@@add:
  add eax,[ebp].edx
  add edx,4
  loop @@add
end;

type
  VA_Sum = function(NumCount: integer{N1,N2}): Integer; cdecl varargs;

var
  m: VA_Sum;
begin
  m := GetSum;
  ShowMessage(inttostr(m(4,3,4,5,6)));
end;

function ConStr(NumCount: integer{N1,N2}): string;cdecl;
var
  st1: string;
  i: Integer;
begin
  asm
    mov esi,16
  end;
  for i := 0 to NumCount - 1 do
  begin
    asm
      mov edi,[ebp].esi
      cmp edi,128
      jb @@char
      mov DWORD ptr st1,edi
      @@Char:
      add esi,4
    end;
    Result := Result + st1;
  end;
end;

type
  VA_ConStr = function(NumCount: integer{N1,N2}): string; cdecl varargs;

var
  cstr: VA_ConStr;
begin 
  cstr := constr;
  ShowMessage(cstr(3,'Test','不得闲','测试'));
end;