Procedure bei Mausklick ausführen

[a.def]

Na, ins OnMouseDown des Panzers.

Hat DeddyH aber schon ganz oben geschrieben ...

Delphi-Quellcode:

procedure TfrmTest.shpPanzerMouseDown( // <====== HIER
 Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    tmrSchuss.Enabled := true;
end;