Ошибка EAccessViolation.

[Muaxaxa]

Спасибо.))

[Аватар]

Особо не разбирался, но цикл похоже должен быто до n-1, иначе выход за пределы массива

SetLength(P, n);
....
for i:= 0 to n do

[Muaxaxa]

Тоже не получилось.

И вроде же у меня это есть :

  n:=(StrToInt(Edit1.Text)-1);

[Аватар]

У динамического массива индекс начинается с нуля. И если задали n при создании его, то индекс может быть от 0 до n-1.

[Muaxaxa]

Имеете ввиду так? Все ровно ругается.

Randomize;
  n:=(StrToInt(Edit1.Text));
  i:=0;
  mp:=0;
  for i:= 0 to n-1 do
    begin
      P[mp].x:=Random(image1.Width);
      P[mp].y:=Random(image1.Height);
      mp:=mp+1;
    end;
  P[RadioGroup1.ItemIndex].x:=x;
  P[Radiogroup1.ItemIndex].y:=y;
  Image1.Picture:=nil;{ nulle vai neeksiste}
  BezierCurve();

[Аватар]

Память под массив P вы выделяете в BezierCurve, а пытаетесь в него что-то написать до обращения к этой процедуре. От этого и пляшите

[Muaxaxa]

Спасибо.))