benutzen von objektnamen in eigenen prozeduren!

[DeddyH]

Kleiner Verbesserungsvorschlag:

Delphi-Quellcode:

procedure farbwechsel(Panel: TPanel; Farbe: integer);
begin
  if Panel = nil then Exit; // Panel ist nicht initialisiert

  case Farbe of
    1: Panel.color:= clred;
    2: Panel.color:= clblue;
  end;
end;