системная ошибка, а затем выбивает delphi и пишет ''Variable 'p' might not have been initialized.
Код:
xa[i]:= StrToInt(listbox1.Items[i-1]);
ya[i]:= StrToInt(listbox2.Items[i-1]); Здесь ошыбки точно нет
p[i].X:=Trunc( Cos( An) * TempX - Sin( An) * TempY );
p[i].Y:=Trunc( Sin( An) * TempX + Cos( An) * TempY );
form1.Canvas.Polygon(p); // вот здесь гдето но я незнаю где
Bargest: не забываем про оформление кода!