arrays

[Privateer3000]

Danke für die Antwort.
Wie kann ich eine Komponente finden die sich in einer anderen Unit befindet??
Die Labels befinden sich in einem anderm Form.So siehts im Moment aus:

Code:

procedure TForm1.AnyShapeMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer); 
var 
  aTimer: TTimer;
  aLabel: TLabel;
begin 
  if Sender <> nil then 
    if Sender is TShape then 
    begin
      aTimer := FindComponent('Timer' + Copy(TShape(Sender).Name, 6, 2)) as TTimer;
      aLabel := FindComponent('Label' + Copy(TLabel(Sender).Name, 6, 2)) as TLabel;
      if (atimer.enabled=false) then
      aTimer.Enabled := not aTimer.Enabled
      else
      atimer.enabled:=false;
      form2.aLabel.visible:=true;
      form2.aLabel.color:=clMaroon;
      end;
    end;

nämlich in Form2.
Bitte nochmal Hilfe!