arrays

[sakura]

Delphi-Quellcode:

procedure TForm1.AnyShapeMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  aTimer: TTimer;
begin
  if Sender <> nil then
    if Sender is TShape then
    begin
      aTimer := FindComponent('Timer' + Copy(TShape(Sender).Name, 6, 2)) as TTimer;
      aTimer.Enabled := not aTimer.Enabled;
    end;
end;

Ungetestet, sollte aber gehen.