1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Label5.Visible:=False;

  if bShape.Visible=false then aShape.Visible:=false;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Abstand: real;
begin
 // TForm1.CreateNew(0);
  if Button1.Enabled then Exit;

  Label3.Visible := true;
  bShape.Visible := true;

  aShape := TShape.Create(Self);
  aShape.Parent := self;
  aShape.Width := 4;
  aShape.Height := 4;
  aShape.Shape := stCircle;
  aShape.Top := y + Image1.Top - 2;      // Mauspunkt Y
  aShape.Left := x + Image1.Left - 2;      // Mauspunkt X

  Abstand := Round(Sqrt(Sqr(CorrectX - (x + 14)) + Sqr(CorrectY - (y + 102))));
  Label2.Caption := FloatToStr(Abstand * 44.3);
  Gesamtkm := Gesamtkm + Abstand * 44.3;
  Label7.Caption := FloatToStr(Gesamtkm);

  Label8.Visible:=true;

  Button1.Enabled := True;
end;