1:

Label1.Caption := IntToStr(ListBox1.Items.Count);                    

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

VAR i, anzahl : INTEGER;
begin
  anzahl:=0;
  for i:=0 TO ListBox1.Items.Count-1 do
  if (ListBox1.Items[i])[1] = '8' then Inc(anzahl);
end;                    

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:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

procedure THaupt_Form.ComboBox1Change(Sender: TObject);
var
  Found : boolean;
  i     : integer;
  x     : integer;
  anzahl: integer;
begin

  Found := False;
  if( ComboBox1.Text = '24 Uhr' )then
  begin
    with ListBox1.Items do
    begin
      BeginUpdate;
      Clear;
      for i := 0 to Playliste.Count - 1 do
        Add( Playliste.Strings[ i ]);
      EndUpdate;
    end;
    Abort;
  end;
  i := 0;
  with ListBox1.Items do
  begin
    BeginUpdate;
    Clear;
    while not Found and( i < Playliste.Count )do
    begin
      if( Pos( ComboBox1.Text, Playliste.Strings[ i ]) > 0 )then
      begin
        Inc( i );
        while not( Pos( ' Uhr', Playliste.Strings[ i ]) > 0 )do
        begin
          Add( Playliste.Strings[ i ]);
          Inc( i );
        end;
        Found := True;
      end
      else
        Inc( i );
    end;
//---------------- alle 8000 Einträge zählen um die Titel f. die Stunde zu bekommen ------
   anzahl:=0;
  for x:=0 TO ListBox1.Items.Count-1 do
  if (ListBox1.Items[x])[1] = '8' then Inc(anzahl);
  StatusBar1.SimpleText := ' Titel für diese Stunde ' + (IntToStr(anzahl));

   EndUpdate;
  end;
end; // ComboBox1Change                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure THaupt_Form.Programm11Click(Sender: TObject);
var
  datum : string;
begin
  datum:= FormatDateTime('dd-mm-yy',NOW);
  with Playliste do
  begin
    BeginUpdate;
      Clear;
       LoadFromFile( Tools_Form.edit1.text + datum + '.pl1' );
        Prog_Label.Caption := 'Prog. 1';
         EndUpdate;
         end;