unit farbe1;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls;

type
TForm1 = class(TForm)
  Button1: TButton;
  Button2: TButton;
  Button3: TButton;
  Button4: TButton;
  Button5: TButton;
  Button6: TButton;
  procedure Button1Click(Sender: TObject);
  procedure Button2Click(Sender: TObject);
  procedure Button3Click(Sender: TObject);
  procedure Button4Click(Sender: TObject);
  procedure Button5Click(Sender: TObject);
  procedure Button6Click(Sender: TObject);
  procedure BitButton1Click(Sender: TObject);
private
  { Private declarations }
public
  { Public declarations }
end;

var
 Form1: TForm1;

implementation

{§R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Color := clRed;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  Form1.Color := clGreen;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
  Form1.Color := clBlue;
end;


procedure TForm1.Button4Click(Sender: TObject);
begin
  Form1.Color := $00ff00ff;
end;


procedure TForm1.Button5Click(Sender: TObject);
begin
  Form1.Color := clWhite;
end;


procedure TForm1.Button6Click(Sender: TObject);
begin
  Form1.Color := clYellow;
end;

end.