Ich werde noch verrückt mit ImageList und OnCreate .

[Cosamia]

funktioniert leider auch nicht, oder habe ich etwas falsch verstanden?

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
status := ServiceRunning(pchar('pc265'),'UmRdpService');
if (status = True) then label1.Caption := 'läuft';
if (status = True) then ImageList1.Draw(Paintbox1.Canvas,0,0,0);
if (status = False) then ImageList1.Draw(Paintbox1.Canvas,0,0,1);
if (status = False) then btstop.Enabled := false;
label2.Caption := BoolToStr (status);
end;