procedure test(a, b, c : Integer); stdcall; var g : integer; begin end; procedure TForm1.FormCreate(Sender: TObject); begin test(10, 20, 30); { push $1e push $14 push $0a } end;