bitbtn버튼하고 ccolorgrid를 이용해서 채팅 프로그램에서 원하는 색으로 설정 후 글자를 치고 입력을 하면

색이 바뀌게 할려고하는데 델파이에서는 이런 식으로 되어있더라고요


procedure TChatClientMFrm.BtnColorClick(Sender: TObject);
begin
  if ColorDialog1.Execute then
  begin
    PaintBox1.Canvas.Brush.Color := ColorDialog1.Color;
    PaintBox1.Canvas.FillRect(PaintBox1.ClientRect);
  end;
end;

이것을 빌더에서는 어떻게 바꿔야 될까여?