Combobox-Hilfe

[AeNima]

Also ich möchte ein Programm schreiben im Stil von Windows paint .
Ich hab eine farbpallette in einer combobox .
Nun möchte ich ,dass wenn ich die farbe auswähle, ich auch mit der Farbe male.

Delphi-Quellcode:

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin

 with Control as TComboBox,Canvas do begin
    Brush.Color := clWhite;
    FillRect(Rect);
    InflateRect(Rect,-2,-2);
    Brush.Color := StrToInt(Items[Index]);
    FillRect(Rect);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
with ComboBox1.Items do begin
  Add(IntToStr(clRed));
  Add(IntToStr(clFuchsia));
  Add(IntToStr(clBlue));
  Add(IntToStr(clGreen));
  Add(IntToStr(clYellow));
end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image1.canvas.pen.color:=clblue;
if a=1 then image1.canvas.lineto (x,y)  ;
             image1.canvas.moveto (x,y);
label1.caption:=inttostr(x);
label2.caption:=inttostr(y);
end;

jede hilfe ist willkommen,denn ich komme mit meinem problem einfach nicht weiter