передать неограниченное количество параметров процедуре

в Delphi процедура write может обрабатывать:

write(TF,st1)

и

write(TF,st1,st2,st3,st4);

Я хочу объявить процедуру, которая также может это делать, каков синтаксис?

и вариант:

write(TF,[st1,st2,st3])

менее желателен, хотя я знаю, как это сделать.

основная цель состояла в том, чтобы передать ShortString в функцию, которая сделает вызов чтения из файл и будет читать на длине shortString , как определено. однако после передачи его как варианта или в открытом массиве shortString теряет свой «размер» и становится 255, что делает это пройти непригодный для меня. но ответ все равно получен, если вы хотите передать открытый массив.