"Farbboxen" Erstellen und per ButtonClick Fabe verändern

[Delphi-n00b]

Danke

Delphi-Quellcode:

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

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

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

so hab ich's gelöst