Delphi - pintar diferentes colores en imagen

Realice un paint y llegue hasta sacar los colores de paint palette pero no puedo hacer que pinte de diferentes colores la imagen o por lo menos colocar unos 3 botones de color azul, uno de verde yotro de rojo y que precione el boton color azul y pueda con el mouse señalar la zona que quiero que se pinte de azul y asi sea... tengo todo esto hecho

procedure TForm3.Image2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
If Button = mbLeft Then
Begin
Dibujando := True;
Image2.Canvas.MoveTo(X, Y);
End;
end;

procedure TForm3.Image2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
If Button = mbLeft Then
Dibujando := False;
end;

procedure TForm3.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
If Dibujando Then
Image2.Canvas.LineTo(X, Y);
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
if SavePictureDialog1.Execute Then
Begin
Image2.Picture.SaveToFile(SavePictureDialog1.Filename);
end;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute Then
Begin
Image2.Picture.LoadFromFile(OpenPictureDialog1.Filename);
end;
end;

procedure TForm3.SpeedButton12Click(Sender: TObject);
begin
if ColorDialog1.Execute Then
Begin
Image2.Picture.Bitmap;

end;
end;
si me pueden ayudar lo agraqdesco
soy principiante...

un abrazo de Chile

Esto es lo que buscas

Image2.Canvas.Pen.Color:=clRed; //Esta es para cambiar el color de la linea

Image2.Canvas.Pen.Width:=5; //Esta es para el ancho de la linea

como siempre mi amigazo E.T... dando todas las soluciones... te lo agradesco.. todavia no lo pruebo pero estoy seguro me servira..
gracias y un fuerte abrazo desde Chile
Antonio