Problem mit Listbox und Typen

[wadimwadim]

Ey bei mir ist sitzt hier Problem auf Problem...
Möchte erreichen, dass ich die Listbox zuerst leere, bevor da was draufgeschrieben wird. (Listbox1.Clear

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  i, ii, Anzahl, Er : Integer;
  NextScan: array [0..10000] of String;
  Processhandle: THandle;
  WindowHandle, Pidi,
  EndMemHex,
  Sets :                 Integer;
  Wert :DWORD  ;
  NextInt: array [0..10000] of Integer;
  NextInt_: array [0..10000] of Integer;
  lbuf: array [0..10000] of Integer;

begin
WindowHandle :=FindWindow(nil,'Guild Wars');
Anzahl:= Listbox1.Items.Count;
For i:= 0 to Anzahl -1 do
  begin
  NextScan[i]:= '$' + Listbox1.Items[i];
  NextInt[i]:= StrToInt(NextScan[i]);
  GetWindowThreadProcessId(WindowHandle ,@Pidi);
  ProcessHandle :=OpenProcess(PROCESS_VM_READ ,False , pidi);
  ReadProcessMemory(Processhandle ,ptr(NextInt[i]),@lBuf[i],4,Wert);
  //Listbox1.Clear;  soll mir die Listbox leeren   wo soll ich das reinschreiben?
  If lbuf[i] = SuchS Then
    Listbox1.Items.Add(IntToHex(NextInt[i],8));
  end;
end;

Listenindex wird überschritten(Fehlermeldung), falls ich es da reinschreib.