フォームに、円を描くプログラムを作りました。
「Delphiの魔法」さんの記事を参考にさせてもらいました。
ツールバーの「Diarogs」から、「TcolorDialog」コンポーネントをフォームに貼り付けます。

あとは、左画像のイベント部分をダブルクリックして出てきたプロシージャに下記のコードを書きます。

実行すると、色のない円が描かれます。
フォームをクリックすると、ダイアログが現れて、色を選択して「OK」をクリックすると、円に色が塗られます。

そんだけ(^^;
なんせ、ド素人ですから・・・

プログラム

procedure TForm1.FormClick(Sender: TObject);
begin
  //フォームをクリックするとダイアログが現れる
  if ColorDialog1.Execute=True then
    begin
      Canvas.Brush.Color := ColorDialog1.Color;
      Repaint;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if Width >Height then
    Width := Height
  else
    Height := Width;
    Repaint;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
  //キャンバスに円を描く
  Canvas.Ellipse(2,2,Height-50,Height-50);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  //ウィンドウを正方形にする
  if Width >Height then
    Width := Height
  else
    Height := Width;
    Repaint;
end;