[o'neal]

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

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

[lmikle]

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

Код:

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]

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