菜鸟的简单问题:在delphi中实现vb中的控件数组的功能;我怎么才能设置和得到canvas对象的背景色

Question

取得背景色：
1。GetBkColor(canvas.handle);
2。Canvas的属性中有！

Answer 1

    form1.Canvas.Brush.Color:=clBlack;
    form1.Canvas.FillRect(rect);

Answer 2

关于第一个问题，我是这么做的：...
Form1:TForm
  Label1:TLabel;
  Label2:TLabel;
  Label3:TLabel;
...
  LblAry: array[1..3] of TLabel;
...
...
  LblAry[1]:=Label1;
  LblAry[2]:=Label2;
  LblAry[3]:=Label3;
...
...

Answer 3

但是还是不能实现这样的vb功能:
Dim lColor As Long
Private Sub Color_Click(Index As Integer)
lColor = Index
End Sub
这样我只需要一个子程序就可以完成选择某一种颜色的功能
我想在delphi中实现这样的功能,不知道怎么做!