[PG81]

Здравыствуйте! Подскажите как передавайть массивы в функцию?

Код:

type
  rHostMessage = packed record
    fCaption : array[0..STR_LEN_SHORT-1] of Char; //вх заголовок сообщения
    fMessage : array[0..STR_LEN_SHORT-1] of Char; //вх текст сообщения
    fFlags   : integer;                           //вх флаги сообщения
    fArgs    : array .... //как передать?        
  end;
PrHostMessage        = ^rHostMessage;
var
vHostMessage:PrHostMessage;
function exec(aObjClassName:string;aMessageCode:UINT; aParam:WPARAM; bParam:LPARAM):LPARAM;
var
vHM:PrHostMessage;
mes:string;
begin
  case aMessageCode of
  ...
  CIN_HOST_MESSAGE:
    begin
      vHM:=PrHostMessage(AParam);
      mes:=vHM.fMessage;
      format(mes, args);//нужно как-то передавать аргументы
      result := Application.MessageBox(PChar(mes), vHM.fCaption, flags);
    end; 
  ... 
  end; 
end;