DrawGrid(30分)

我想对一个黑色的DrawGrid进行如下操作，我可任意选红黄绿3种颜色的一种，点击
DrawGrid的一个网格时，那个网格就变成我选的颜色，紧接着再点一下就变黑色。
请帮忙呀，写一下源程序吧，急用呀！

有谁能帮我呀，快出手！

高手们，情出手吧，急用呀

请帮忙

var
Form1: TForm1;
Column, Row,Cc,Rr: Longint;
R :TRect;
num :Integer;

implementation

{$R *.DFM}


procedure TForm1.DrawGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
DrawGrid1.MouseToCell(X, Y, Column, Row);
if (Column=Cc) and (Row=Rr) then num :=1;
R :=Rect(Column*(DrawGrid1.DefaultColWidth+1),(Row*DrawGrid1.DefaultRowHeight+4),
(Column+1)*(DrawGrid1.DefaultColWidth+1),(Row+1)*(DrawGrid1.DefaultRowHeight+1));
if num=0 then
begin
num :=1;
DrawGrid1.Canvas.Brush.Color :=clRed;
end
else
DrawGrid1.Canvas.Brush.Color :=clBlack;
DrawGrid1.Canvas.FillRect(R);
Cc :=Column;
Rr :=Row;
num :=0;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
num :=0;
Rr :=0;
Cc :=0;
end;

哈哈，这种单色的我早做了，我要的是三色的，不过还是要谢谢了
我已经做出来了，方法是不一样的。

多人接受答案了。