Access violation auf Timer1, Warum?

[Eljey]

ganzer code: (Der Fehler kommt genau in der Timer Zeile, hab ich durch den Debugger laufen lassen)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 i:=0;
 laufen:=true;
 zeit:=0;
 archlordwnd:=FindWindow(nil,'Archlord');
 If archlordwnd<>0 Then
  ShowMessage('gefunden')
 Else
  close;
end;

procedure TForm1.b_kalClick(Sender: TObject);
begin
  If i<=10 Then
  begin
  SetForegroundWindow(archlordwnd);
  Timer1.Interval:=100;
  sleep(100);
  sendZielSuchen;
  Timer1.Enabled:=true;
  sendZielAngreifen;
  end;
end;

procedure TForm1.b_stopClick(Sender: TObject);
begin
 If laufen then
 begin
  SetForegroundWindow(archlordwnd);
  Timer1.Enabled:=false;
  messwerte[i].laufzeit:=zeit;
  Timer1.Enabled:=true;
  ShowMessage(InttoStr(zeit));
  zeit:=0;
  laufen:=false;
 end;
end;

procedure TForm1.StartClick(Sender: TObject);
begin
 Timer1.Interval:=StrtoInt(LabeledEdit1.Text);
 Timer1.Enabled:=true;
end;

procedure TForm1.Timer1StopTimer(Sender: TObject);
begin

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
zeit:=zeit+1;
end;