@Sir Rufo:
Nicht schlecht, die Augen eines Adlers
@Pfl:
Noch so nebenbei: gefühlt die hälfte Deines Codes besteht aus unnötigen Kommentaren. Wenn Du treffende Variablen- und Methodennamen verwendest und die Verarbeitungen vor allem in mehrere Methoden aufteilst, kannst Du Dir die Kommentare sparen das Ganze m.E. schon viel leserlicher gestalten (der Code spricht dann für sich).
Und ohne zu wissen was da eigentlich passieren soll, habe ich mich gefragt ob die beiden Zeilen hier korrekt sind:
Delphi-Quellcode:
// Erstes Panel in der StatusBar versorgen
StatusBar1.Panels[0].Text := 'Arbeitsplatz: 1';
// Zweites Panel versorgen
StatusBar1.Panels[2].Text := 'Datum : ' + datetostr(date);