benutzen von objektnamen in eigenen prozeduren!

[cruiser]

Oder du übergibst der Methode, welches panel gefärbt werden soll:

Delphi-Quellcode:

procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
  procedure farbwechsel(Panel: TPanel; Farbe: integer);

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

  if Farbe = 1 then Panel.color:= clred;
  if Farbe = 2 then Panel.color:= clblue;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
farbwechsel(panel1, 1);
end;