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

[Scraffy]

Hallo also zunächst anke für die vielen Antworten. Mit dem Sortieralgorithmus möchte ich zunächst erst mit Bubblesort anfangen aber Danke für Quicksort . So nun habe ich Bubblesort programmiert allerdings, sortiert er die Namen nicht, sie werden lediglich in der Reihenfolge in der ich sie eingegeben habe auch wieder ausgegeben Also ich poste mal meinen bisherigen Quellcode:

Delphi-Quellcode:

unit pNamenslist02;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    edEingabe: TEdit;
    btEinlesen: TButton;
    listAusgabe: TListBox;
    Label1: TLabel;
    btAusgabe: TButton;
    Button1: TButton;
    procedure btEinlesenClick(Sender: TObject);
    procedure btAusgabeClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
var n: Integer;
var namen : array [1..20] of string;

implementation

{$R *.dfm}

procedure TForm1.btEinlesenClick(Sender: TObject);

begin
inc(n); namen[n]:=edEingabe.text;
edEingabe.Text:= ''
end;

procedure BubbleSort(var Items: TStrings);
var
 done: boolean;
 i, n: integer;
 Dummy: string;
begin
 n := Items.Count;

 repeat
   done := true;
   for i := 0 to n - 2 do
     if Items[i] > Items[i + 1] then
     begin
       Dummy := Items[i];
       Items[i] := Items[i + 1];
       Items[i + 1] := Dummy;

       done := false;
     end;
 until done;
end;

procedure TForm1.btAusgabeClick(Sender: TObject);
begin
  BubbleSort(listAusgabe.Items);
  listAusgabe.items.add(namen[n]);
end;

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

end.

so mein erstes Problem besteht weiterhin, Also vielen Dank für eure Hilfe!