Процедура с параметром динамическим массивом.

[Stilet]

Хочу чтобы можно было записивыть вот так:

Тогда открытый массив (см. мой пример) рулит.

[Serge_Bliznykov]

значит так.
или Вы функцию определяете как function Ks(C : array of string);

или, если уж хотите/нужно так: function Ks(C : CHJ): integer;
тогда вызывать только через такой же тип:

procedure TForm1.Button1Click(Sender: TObject);
var myArr : CHJ;
begin
  SetLength(myArr,1);
  myArr[0] := '234';
  Button1.Caption := IntToStr(Ks(MyArr) );
end;

Кстати, а чем Вас вариант описания function Ks(C : array of string): integer; не устраивает!?!??!

[VintProg]

Кстати, а чем Вас вариант описания function Ks(C : array of string): integer; не устраивает!?!??!

Все устраивает, просто иногда хочется своими типами.