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

procedure ZielPunktErstellen;
begin
GetCursorPos(mouseposition);
mouseposition := Form1.ScreenToClient(mouseposition);
If (Mouseposition.x > 630) OR (Mouseposition.y < 64) then exit;
BZiel := TFlatButton.Create(Form1);
BZiel.Parent := Form1;
BZiel.Left := mouseposition.x-12;
BZiel.Top := mouseposition.y-12;
BZiel.Color := clred;
BZiel.ColorBorder := $FFFFFFFF;
BZiel.ColorDown := clred;
BZiel.ColorFocused := clred;
BZiel.ColorHighLight := $FFFFFFFF;
BZiel.ColorShadow := $FFFFFFFF;
BZiel.OnClick := ZielPunktClick;
end;                    

1:
2:
3:
4:

procedure ZielPunktClick(Sender: TObject);
begin
Form2.Show;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

type
  TForm1 = class(TForm)
    procedure ZielPunktClick(Sender: TObject); 
  private
  public
  end;

{...}

procedure TForm1.ZielPunktClick(Sender : TObject);
begin
  {machwas}
end;                    

1:
2:
3:
4:
5:
6:

procedure TForm1.klick(Sender : TObject);
VAR i : Integer;
begin
  if Sender is TComponent then
  i := TComponent(Sender).Tag;
end;