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

[Overclocker]

so das mit den eingängen hat sich nun erledigt, funktioniert soweit.

dann habe ich das ganze programm noch ein bisschen grafisch verändert, doch eins bekomme ich nicht hin.

wenn das gerät verbunden ist, dann will ich dass das label wo: Card 3 connected drinenn steht GRÜN wird, wenns nicht connected ist dann soll das label ROT werden.

hier der text zum connecten an die platine:

Delphi-Quellcode:

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

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

wie ich das label selber färben kann weis ich, nur ich bekomme die bedingung nicht hin, also quasi WENN verbunden, DANN grün, ansonsten rot

weis jemand ne schnelle lösung, bin eben nochn ziemlicher anfänger in delphi und darum für jede hilfe dankbar Stupid