[o'neal]

не знаю, как не пробывал, что-то не получается...

6.На форму поместить N точек (каждая точка помещается на форму по нажатию левой кнопки мыши и имеет номер 1..N). Вычислить расстояния всех точек до точки, помещенной на форму последней по нажатию правой кнопки мыши. Начало работы алгоритма - по нажатию определенной клавиши на клавиатуре, результат выдать в окно диалога.

[lmikle]

Ну и?
Делаешь обработчик события щелчка на форме. По щелчку добавляешь координаты мыши в массив типа Array Of TPoint; По нажатию кнопки считаешь расстояния и выводишь результат в диалоге:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

A : Array Of TPoint; ... procedure TForm1.ButtonCalcClick(Sender : TObject);     function GetDistStr(N : Integer) : String;   begin      Result := FloatToStr(sqrt(sqr(A[i].x - A[High(A)].x) + sqr(A[i].y - A[High(A)].y)));   end;   var   L : TStringList;   I : Integer; begin   L := TStringList.Create;   For I := Low(A) To High(A)-1 Do     L.Add('Расстояние от ' + IntToStr(High(A)+1) + ' до ' + InttoStr(I+1) + ' = ' + GetDistStr(I);   ShowMessage(L.Text);   L.Free; end;

[o'neal]

Большое спасибо.