исходники не смотрел, еще исправьте:
Код:
for i:=0 to n do
begin
xa[i]:= StrToInt(listbox1.Items[i]);
ya[i]:= StrToInt(listbox2.Items[i]);
TempX:=xa[0]-xa[i];
TempY :=ya[0]-ya[i];
p[i].X:=Trunc( Cos( An) * TempX - Sin( An) * TempY );
p[i].Y:=Trunc( Sin( An) * TempX + Cos( An) * TempY );
form1.Canvas.Polygon(p);
Finalize(p);
end;
синтаксически и логически теперь должно быть правильно, а вот по поводу верности работы........ может и верно работает