请教错哪了？

请问哪里错了？急~~~~
我定义了一个函数
procedure TPipe.GetQ1(D:Array [1..6] of Double;L:Array [1..6] of Double;qsum:Double;q2:Double;var q1:double)
编译提示[Error] 'OF' expected but '[' found
请问该如何修改啊？

[解决办法]
delphi不能将类型定义写在参数里,你要这样写:
type
vd=Array [1..6] of Double;
procedure TPipe.GetQ1(D:vd;L:vd;qsum:Double;q2:Double;var q1:double);