1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

s:=ListBox1.Items[ListBox1.ItemIndex];
Edit1.Text:=copy(s,1,pos('   ',s)-1);
Delete(s,1,pos('   ',s)+2);
Edit2.Text:=copy(s,1,pos('   ',s)-1);
Delete(s,1,pos('   ',s)+2);
Edit3.Text:=copy(s,1,pos('   ',s)-1);
Delete(s,1,pos('   ',s)+2);
Edit4.Text:=copy(s,1,pos('   ',s)-1);
Delete(s,1,pos('   ',s)+2);
Edit5.Text:=copy(s,1,pos('   ',s)-1);					

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

Procedure TForm1.Sort;
var
  zwischen: real;
  i, i2: integer;
begin
  for i := 1 to n do
  begin
    for i2 := 1 to (n - 1) do
    begin
      if Liste[i2 - 1] > Liste[i2] then
      begin
        zwischen:= Liste[i2 - 1];
        Liste[i2 - 1] := Liste[i2];
        Liste[i2] := zwischen;
      end;
    end;
  end;
end;					

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

procedure SortZA(var List: TStrings);
(************************************************
 -----------------08.Juni 2004-------------------
 Sortiert eine Liste (List) von Z nach A. 
*************************************************)
var i: integer;
    sl: TStringList;
begin
 sl:= TStringList.Create;
 sl.Assign(List);
 sl.Sort;                           //sortieren...

 for i:=0 to (sl.Count div 2)-1 do  //... und umdrehen
     sl.Exchange(i, sl.Count-1 - i);

 List.Assign(sl);     
end; {SortZA}