index wird ohne aufruf auf 0 gesetzt

[Nicodius]

ich habe hier eine Methoe schauenundhinzufuegen()

bevor ich in die schleife " For i := 0 to index-1 do" komme ... ist der idnex schon auf 0 ... obwohl er vorher fuenf oder hoeher war - es kann nur in diesem codesegment passiert sein :




bitte kann mir wer helfen den Fehler zu finden? (ich habe schon durchgestept)

Delphi-Quellcode:

procedure SchauenUnsHinzufuegen();
var i : Integer;
    theimg : TImage;
begin
for i := 0 to Length(SelList) do
  SelList[i] := nil;
theimg := TImage.Create(Form1);
  For i := 0 to index-1 do
  begin

  theimg := TImage(Form1.FindComponent('Soldier_' + IntToStr(i)));
    if (theimg.Left >= Auswahlrec.Left) then
    if (theimg.left + theimg.width > Auswahlrec.Right) then
    if (theimg.top >= Auswahlrec.Top)
    then
    if (theimg.Top + theimg.Width > Auswahlrec.Bottom)
      then
      begin
        selList[i] := theimg;
        theimg.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+ '\Bilder\standSel.bmp');
      end;
    //Form1.caption := Form1.caption + ' + Soldier' + IntToStr(i);
  end;
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  z := false;
  Form1.Canvas.Refresh;
  Form1.Canvas.Draw(0,0,zurueck);
  Auswahlrec := Rect(Min(X,X), Min(Y,Y), Max(XX,XX), Max(YY, YY));
  SchauenUnsHinzufuegen();
  Form1.Repaint;
end;

danke

Mooreel