I am able to pass my array.
vAccountNum : array[1..2] of variant;
At run time I do not know how many elements will actually fill my new
array.  As I need to save each element to my database, a huge fixed
array will not work.  As the program loops through, selecting the
records, how I can resize my array?  The array has to be some type of
variant to match the existing type.  And this is Delphi 3.  I don't
believe Delphi 3 supports dynamic arrays.

sAccountNumber :  olevariant; 
vAccountNum : array[1..2] of variant;

looop through and get sAccountNumber;
vAccountNum[iCount] := sAccountNumber;
Call procedure to resize the array; // How do I resize my array to
match iCount?
Save to database; 

Thank you.

Cynthia