title: pass unlimited number of parameters to procedure
body: <p>in Delphi the procedure write can handle:</p>
  
  <pre><code>write(TF,st1)
  </code></pre>
  
  <p>and </p>
  
  <pre><code>write(TF,st1,st2,st3,st4);
  </code></pre>
  
  <p>I want to declare a procedure that can also do that, what is the syntax?</p>
  
  <p>and the option of:</p>
  
  <pre><code>write(TF,[st1,st2,st3])
  </code></pre>
  
  <p>is less desirable, though I know how to do that.</p>
  
  <p>the main purpose was to pass <code>ShortString</code>s into function, that would make a read call from file, and would read at the length of the <code>shortString</code> as defined. however after passing it as variant or in open array the <code>shortString</code> loses its "size" and become 255, which making this pass unusable, for me.
  but the answer is still got if you want to pass open array.</p>