Матрица X в этой процедуре не инициализирована. Насколько я понял, Вы по ней определяете 0 или 1 поставить. Если я правильно понял, то она должна получать значения из какого-то StringGrid'а, для этого просто забивайте в неё значения во вложенном цикле, который в конструкции With.
|