1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

procedure TForm1.sort;
var pos, kleinstepos, actualpos:integer;

procedure tausche;
var a:string;
begin
{ Tauschen der Zahlen im Array }
a:=Wortliste[kleinstepos].Wort;
Wortliste[kleinstepos].Wort:=Wortliste[actualpos].Wort;
Wortliste[actualpos].Wort:=a;
end;

begin
{ Hauptteil -Sort- }
pos:=1;
actualpos:=1;
while actualpos<>(AnzahlWoerter-1) do
      begin

          kleinstepos:=actualpos;

          while pos<AnzahlWoerter do
          begin
             if Wortliste[kleinstepos].Wort>Wortliste[pos].Wort then
              begin
              kleinstepos:=pos;
              end;
          pos:=pos+1;
          end;

       tausche;
         actualpos:=actualpos+1;
      end;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var
  StringList: TStringList;
begin
  StringList := TStringList.Create;

  // Entweder...
  StringList.Add('Kiwi');
  StringList.Add('Apfel');
  StringList.Add('Birne');
  // ... oder ...
  StringList.LoadFromFile('C:\Obst.txt');

  StringList.Sort;
  ShowMessage(StringList.Text); // Resultat: "Apfel Birne Kiwi"

  StringList.Free;
end;