Label grün einfärben wenn platine verbunden, sonst rot

[jmd anders]

abgesehen davon, dass man bei einer neuen frage einen neuen thread öffnet, kannst du doch einfach zu deiner case-of anweisung den farbumschwung mit einfassen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var h,CardAddr:longint;
begin

  CardAddr:=3;
  h:= OpenDevice(CardAddr);
  case h of
    0..3:
      begin  
        label1.caption:='Card '+ inttostr(h)+' connected';
        label1.Font.Color:=ClLime;
      end;
 
    -1:
      begin
        label1.caption:='Card '+ inttostr(CardAddr)+' not found';
        label1.Font.Color:=ClRed;
      end;  
   end;
 end;