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

var
  zeile : string;
  schleife : integer;
begin
  for Schleife := 0 to ListBox.Items.Count - 1 do
    begin
      Zeile := ListBox.Items[Schleife];

      // Alle Zeichen in Großbuchstaben verwandeln.
      Zeile := UpperCase(Zeile);					

1:
2:
3:
4:
5:
6:
7:

var     text: string;
begin
 if ListBox1.ItemIndex <> -1 then
  begin
        text:=UpperCase(ListBox1.Items[ListBox1.ItemIndex]);
        ListBox1.Items.Add(text);
  end;					

1:
2:

if ListBox1.ItemIndex > -1 then
  ListBox1.Items[ListBox1.ItemIndex]:=UpperCase(ListBox1.Items[ListBox1.ItemIndex]);