Mehrere Zeitabfragen im Timer, wie?

[hathor]

Zitat von Codix32:

Gibt es da keinen besseren Ansatz?

Das geht auch besser mit einem Memo:

Delphi-Quellcode:

//Aufrufen, wenn ListBox1 geändert oder gefüllt wird
procedure TForm2.Button1Click(Sender: TObject);
begin
Memo1.Lines:=  ListBox1.Items;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
var
  myTime : TDateTime;
  formatted : string;
begin
myTime:= now;
DateTimeToString(formatted, 't', myTime);
if formatted<>Label1.caption then Label1.Caption:= formatted else Exit;

//wird nur 1x/Minute ausgeführt beim Minutenwechsel
if POS(Label1.caption,Memo1.Text)<>0 then
WinApi.Windows.Beep(1500,50);  // oder weiter mit procedure AUSWERTUNG...
end;