[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;