Hilfe für ein Delphi Sortierprogramm!!!!!!

[Scraffy]

Okay dank euch habe ich es jetzt! Ich bin fertig es gibt nur ein problem und zwar sind ungefähr die ersten 10 zeilen meiner ListBox frei und wurden somit übersprungen wisst ihr woran dass liegen könnte?:

Delphi-Quellcode:

var
  Form1: TForm1;
  n: Integer;                      //Hier deklarieren wir Variablen, die
  namen : array [1..20] of string; //wir im späteren Verlauf benötigen

implementation

{$R *.dfm}

//-------------------------------------------------------------------------
procedure TForm1.btEinlesenClick(Sender: TObject);
begin
  inc(n); namen[n]:=edEingabe.text;
  edEingabe.Text:= ''
end;

//----------------------------------------------------------------------

procedure TForm1.btEndClick(Sender: TObject);
begin
close;
end;

//----------------------------------------------------------------------

procedure TForm1.btAusgabeClick(Sender: TObject);
var i: integer;
begin
    listAusgabe.Items.Clear;
    for i:=1 to High(Namen) do
    listAusgabe.Items.Add(Namen[i]);
    ListAusgabe.Sorted := not ListAusgabe.Sorted;

end;
//----------------------------------------------------------------------


procedure TForm1.bitbtEndClick(Sender: TObject);
begin
close;
end;

end.

Danke!

[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]