Gezeichnetes bild in paintbox speichern?

[Fussball-Robby]

Der ColorDialog gibt doch eine Farbe aus(logisch, oder?)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
  begin
    Form1.Color := ColorDialog1.Color;
  end;
end;