[urahara]

программа падает у тебя падает на

Код:

procedure initfigure;
....
  optar[1].cf:=cfunc(fargum);
....

как я понял у тебя просто массив optar нулевой длинны.

по перваму взгляду там не хватает

Код:

SetLength(optar,cop+2);