[angvelem]

1. Оцените ваш код:

Код:

...
 for i:=1 to StringGrid1.RowCount-1 do
    begin
   MoveTo(trunc(x),trunc(y));
   x:=strtoint(stringgrid1.cells[1,i]);
   y:=strtoint(stringgrid1.cells[2,i]);
   lineto(trunc(x),trunc(y));
   MoveTo(trunc(x),trunc(y));

и подумайте, как это отработает в цикле.

2. Сдвинуть первые координаты.