Delphi7 создание формы Runtime, constants cannot be used as open array arguments

[BoozZzilla]

Я пока только тренируюсь, создал процедуру для создания новой формы:

procedure NewForm(Sender:TObject; Name: string; var Visible: boolean;

 const Position: array [1..2] of integer, Size: array[1..2] of integer,

 Properties: array of integer );

var

NewForm: TForm;

begin

NewForm:=TForm.Create(Self);

NewForm.Caption:=Name;

NewForm.Top:=Position[0];

NewForm.Left:=Position[1];

NewForm.Height:=Size[0];

NewForm.Width:=Size[1];

NewForm.Visible:=Visible;

NewForm.Parent:=Application;

NewForm.Show;

end;

и пытаюсь её запустить так:

procedure TMainForm.clbButtonClick(Sender: TObject);

begin

NewForm(Sender,'Kukish',true,[500,500],[300,200],nil);

end;

ругается constants cannot be used as open array arguments, курсор стоит после true
я ума не приложу что не так, вроде true не передаётся в open array она должна в булевскую переменную передаваться

[veniside]

константа не может передаваться как var параметр

var
  visible: boolean;
begin
  visible := True;
  NewForm(Sender,'Kukish', visible, ...

или убрать var перед Visible в заголовке процедуры, он там даром не нужен.

NewForm:=TForm.Create(Self);

какой ещё там Self

Position: array [1..2] of integer

Специально для этого есть запись TPoint.

[evg_m]

const Position: array [1..2] of integer, Size: array[1..2] of integer,
[100, 100] описание такой конструкции соответствует
: array of integer
но не : array [1..2] of integer

в вызове тоже должен быть некий массив (mposition) с ТОЧНО таким же описанием. а не [100,100]

var
mposition: array [1..2] of integer;

m[1]:=100;
m[2]:=100;
NewForm(..., mposition, ....);

либо как показано выше
либо изменить описание параметра на position: array of integer
и проверять внутри границы преданного массива.
либо как сказал veniside заменить на TPoint самый удобный вариант.