Möchte Entfernung von 2 Punkten auf einem Bild berechnen.

[Mokuba01]

Hi,

Delphi-Quellcode:

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  PunktA:TPoint;
  PunktB:TPoint;
  PunktC:TPoint;
{...}
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
Langex,Langey:integer;
Lange:Extended;
begin
Punktb.X:=X;
Punktb.Y:=Y;
Punktc.X:=Punkta.X;
punktc.Y:=Punktb.Y;
Langex:=Punkta.X-Punktc.X;
Langey:=Punktb.Y-Punktc.Y;
if Langex<0 then
Langex:=Langex*(1-2);
if Langey<0 then
Langey:=Langey*(1-2);
Lange:=Hypot(Langex,Langey);
if Lange<0 then
Lange:=Lange*(1-2);
application.MessageBox(PChar(FloatToStr(Lange)),'',MB_OK);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
PunktA.X:=15;
PunktA.Y:=15;
end;

Leider kommt dort immer null raus. Was mach ich falsch?
mfg Mokuba01