[angvelem]

Не знаю, что у Вас компилировалось, но, то что находится в архиве, в принципе не может быть скомпилировано по причине массы ошибок.
Вот это никогда не пройдёт:

Код:

procedure TForm2.Button1Click(Sender: TObject);
     begin
             if Form2.Edit1.text:= 'A' then   start:=GrafVal(1);
             if Form2.Edit1.text:= 'B' then   start:=(i[2],j[2]);
             if Form2.Edit1.text:= 'C' then   start:=(i[3],j[3]);
             if Form2.Edit1.text:= 'D' then   start:=(i[4],j[4]);
             if Form2.Edit1.text:= 'E' then   start:=(i[5],j[5]);
             if Form2.Edit1.text:= 'F' then   start:=(i[6],j[6]);
             if Form2.Edit1.text:= 'G' then   start:=(i[7],j[7]);
             if Form2.Edit1.text:= 'H' then   start:=(i[8],j[8]);
             if Form2.Edit1.text:= 'I' then   start:=(i[9],j[9]);
             if Form2.Edit1.text:= 'J' then   start:=(i[10],j[10]);
             if Form2.Edit1.text:= 'K' then   start:=(i[11],j[11]);

           end;

и таких ляпов масса.