Listbox Eintäge in TLabel anzeigen.

[thiagojonas]

habs jetzt so und es klappt nicht

Delphi-Quellcode:

procedure TForm1.add_btnClick(Sender: TObject);
var anzahl : integer;
begin
if lehrer_cb.ItemIndex = -1 then
begin
  Application.MessageBox('Wählen Sie bitte eine betroffene Lehrkraft aus!', 'Fehler', MB_ICONINFORMATION or MB_OK);
end;
if (lehrer_cb.ItemIndex >= 0)then
begin
  lehrer_list.AddItem(lehrer_cb.Text,lehrer_list);
  for anzahl := 0 to Pred(lehrer_list.Items.Count) do
begin
  lehrer.Caption := lehrer_list.Items[anzahl] + ' : _______________' + #13#10;
      end;
    end;
  end;

Wofür ist denn das eigentlich?

Pred(lehrer_list.Items.Count)