Прога не хочет брать элементы из массива.

[Rin]

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  n:=n+1; // это не счётчик ли?
  setLength(mas_point,n);
  mas_Point[n-1].x:=x;
  mas_Point[n-1].y:=y;
  Form1.Canvas.Pixels[x,y]:=RGB(0,0,0);
end;

Ты говоришь, что они заполнены. Они заполняются, и это верно!
щёлкни по форме 4 раза. Чем ближе ты расположишь точки друг от друга, тем быстрее заполнятся стороны треугольников.
а теперь посмотри через трассировку состояния Т1 и Т2 когда дело дойдёт до процедуры Proverka.
там слева внизу при трассировке можно выбирать процедуры в checkBox , вот выбери процедуру "проверка" и посмотри на их состояние.
Тогда увидишь, что они не определены.

[Rin]

Чел, Спасибо большое, что отозвался. Просто trouble не в заполнении треугольников и выделении памяти.

[p51x]

Ты говоришь, что они заполнены.

Я такого не говорил.

щёлкни по форме 4 раза.

Щелкнул. Поучил треугольник и "Invalid floating operation"

а теперь посмотри через трассировку состояния Т1 и Т2 когда дело дойдёт до процедуры Proverka.

А я, что по вашем до этого делал? В процедуре проверка Т1 и Т2 имеют нормальные значения.

 n:=n+1; // это не счётчик ли?

Если бы вы читали мои сообщения, то увидели, что об этом счетчике я писал.

[Rin]

procedure TForm1.Button1Click(Sender: TObject);
var
da:boolean;
peremena,ii:integer;
begin
while da do// сортирую точки по OX
begin
  da:=false;
  for ii := 0 to n-2 do
  if mas_point[ii].X>mas_point[ii+1].x then
  begin
    swapP(mas_point[ii],mas_point[ii+1]);
    da:=true;
  end;
end;// закончил сортировку
  nomer_trey:=1;// это счётчик треугольников
  i:=0;// это счётчик точек 
  setLength(mas_Treyg,nomer_trey);// выделяем память на 1 элемент
// запоминаем точки этого треугольника
  mas_treyg[nomer_trey-1].PA:=Mas_Point[i];
  mas_treyg[nomer_trey-1].PB:=Mas_Point[i+1];
  mas_treyg[nomer_trey-1].PC:=Mas_Point[i+2];
// заполняем стороны треугольника координатами
  Zapolnenie_Trey(mas_Treyg[Nomer_trey-1]);
if n>3 then // если мы поставили на форме больше , чем 3 точки, то
  repeat
    inc(nomer_trey);// увеличить на единицу
    inc(i);// передвигаемся на одну точку вперёд
    setLength(mas_treyg,nomer_trey);// выделяем память под массив 
    //запоминаем точки этого треугольника
    mas_treyg[nomer_trey-1].PA:=mas_Point[i];
    mas_treyg[nomer_trey-1].PB:=mas_Point[i+1];
    mas_treyg[nomer_trey-1].PC:=mas_Point[i+2];
// заполняем стороны треугольника координатами
    Zapolnenie_Trey(mas_Treyg[Nomer_trey-1]);
// а здесь при передаче благополучно заполненных параметров прога не хочет работать с этими элементами массива
    proverka(mas_Treyg[Nomer_trey-2],mas_Treyg[Nomer_trey-1]);
// строки, которые ниже, уже не важны, т.к. proverka не выполняется
    if peresechenie then
    begin
      mas_Treyg[Nomer_trey-1].PA:=Mas_Point[i-1];
      mas_treyg[nomer_trey-1].PB:=mas_Point[i+1];
      mas_treyg[nomer_trey-1].PC:=mas_Point[i+2];
      Zapolnenie_Trey(mas_Treyg[Nomer_trey-1]);
      peresechenie:=false;
    end;
  until i+2=n-1;
  // заполнение нашего многоугольника
  for i:= 0 to Nomer_trey-1 do
  trey_full(mas_treyg[i].PA,mas_treyg[i].PB,mas_treyg[i].PC);
  i:=0;
  nomer_trey:=0;
  n:=0;
end;

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

[p51x]

// запоминаем точки этого треугольника
mas_treyg[nomer_trey-1].PA:=Mas_Point[i];

Щелкни на кнопку и убедись, что упадет здесь.

[Rin]

прога работает, но через раз. Если ,в общем, в левом нижнем углу поставить 4 точки , то он выдаст фигуру. Но правда не всегда ту , что надо.

[Rin]

но самое главное... алгоритм не работает!
если в full_draw_line в начале вписать это:

procedure TForm1.full_draw_Line(var x1, y1, x2, y2: integer);
var
 dx,dy,x,y:integer;
procedure swap(var xx1,xx2,yy1,yy2:integer);
var z:integer;
begin
  z:=xx1;  xx1:=xx2;  xx2:=z;
  z:=yy1;  yy1:=yy2;  yy2:=z;
end;
begin
if y1=y2 then
begin
  if x1>x2 then swap(x1,x2,y1,y2);
  for x := x1 to x2 do
  Form1.Canvas.Pixels[x,y]:=RGB(0,0,0);
  exit;
end;
.........................................
end;

то ошибок вылетать не будет.
Но вот с процедурой "Проверка" беда)))

Главное, что с ошибкой "floating point"и "Invalid floating operation" разобрался. Теперь можно дальше химичить =). Огромное спасибо, p51x и mutabor за то, что выделили моей проблеме ВАШЕ время. Если кому-то надо , то выложу, что получилось.

Так к чему я веду? А, вопрос закрыт.=)