Ich werde noch verrückt mit ImageList und OnCreate .

[Cosamia]

Wo liegt dann der "Hund" begraben?
Bei OnClick funzt ja alles.

Delphi-Quellcode:

if (status = True) then label1.Caption := 'läuft';
if (status = False) then btstop.Enabled := false;
label2.Caption := BoolToStr (status);

funktionieren ja ohne Probleme, lediglich

Delphi-Quellcode:

if (status = True) then ImageList1.Draw(Paintbox1.Canvas,0,0,0);
if (status = False) then ImageList1.Draw(Paintbox1.Canvas,0,0,1);

werden ignoriert.