benutzen von objektnamen in eigenen prozeduren!

[Torley]

wieso kann man in einer eigenen prozedur nicht die farbe von z.B. einem panel ändern?
ich bräuchte diese funktion aber damit ich mir einiges an quelltext sparen kann!

Delphi-Quellcode:

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure farbwechsel(Farbe: integer);
begin
  if Farbe = 1
   then panel1.color:= clred;
  if Farbe = 2
   then panel1.color:= clblue;
end;

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

torley