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

[Overclocker]

Delphi-Quellcode:

const 
  MAX_CHANNEL = 5; 
var 
  s: String[MAX_CHANNEL]; 
  i: Integer; 
begin 
  for i := 1 to MAX_CHANNEL do 
    s[i] := Chr(Ord('0') + Ord(ReadDigitalChannel(i))); 
  Edit.Text := s; 
end;

das heißt ich müsste, wenn mein edit fehlt EDIT1 heißt an diese stelle

Edit.Text := s;

Edit1.Text := s;

schreiben oder?