1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.ColorDialog1Close(Sender: TObject);
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  bmp.Width := 25;
  bmp.Height := 25;
  bmp.Canvas.Brush.Color := ColorDialog1.Color;
  bmp.Canvas.Rectangle(0, 0, 25, 25);
  Image3.Canvas.Draw(0, 0, bmp);
  bmp.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

Function ColorDialogWrapper(CD:TColorDialog;DestImage:TImage):Boolean;
begin
  Result := CD.Execute(nil);
  if Result and Assigned(DestImage) then
    begin
      // DeinCode
    end;
end;