hvor er fejlen ?

Jeg har en liste 2 med nogle tal fx 439,182,294,578,249, osv

Jeg vil så sorted dem ... Men delphi 6 sorted på listbox virker ikke...

Så jeg tænkte på denne funktion ...


procedure TForm1.Button2Click(Sender: TObject);
var
  x: Integer;
  t: Integer;
  Deleted: Integer;

  Function FindMaxTal( Index: TStrings ): Integer;
  Var
    t: Integer;
    MaxTal: Integer;
  Begin
    MaxTal := 0;
    FOR t := 0 TO Index.Count - 1 DO
      IF StrToInt( Index.Strings[t] ) >= MaxTal THEN
        MaxTal := StrToInt( Index.Strings[t] );
    Findmaxtal := MaxTal;
  end;

  Function FindMinTal( Index: TStrings ): Integer;
  Var
    t: Integer;
    MinTal: Integer;
  Begin
    MinTal := 0;
    FOR t := 0 TO Index.Count - 1 DO
      IF StrToInt( Index.Strings[t] ) <= MinTal THEN
        MinTal := StrToInt( Index.Strings[t] );
    FindMintal := MinTal;
  end;

begin
  Deleted := 0;

  ListBox2.Items.Clear;
  Listbox3.Items.Clear;
  Listbox2.Items.Capacity := Listbox1.items.Capacity;
  Listbox3.Items.Capacity := Listbox1.items.Capacity;
  Listbox2.Items := ListBox1.Items;

  for x := FindMinTal( Listbox2.Items ) to FindMaxTal( Listbox2.Items ) do  // køre en løkker fra mintal til maxtal
    For t := 0 To ( listbox2.Items.count - 1 - Deleted ) do  // køre en løkke fra 0 til antal værdi'er
      IF x = StrToInt( Listbox2.Items.Strings[ t ] ) Then  // hvis tallet x = tallet fra værdi'en
      begin
        Listbox3.Items.Add( Listbox2.Items.Strings[ t ] );  // tilføj
        Listbox2.Items.Delete( t );
        Form1.Caption := 'Program7 test: x: ' + IntToStr(x) + '  t: ' + IntToStr(t); // status tekst
        Inc(Deleted,1);
      end;
end;

Den sletter det tal i listbox2 som er sorted .. men jeg får en fejl ...

Index problemmer