rellenar de color una imagen

[epolanco]

si es toda la imagen vi uno de los hilos y lo hice y me funciona pero el problema es que cuando la imagen es muy chica rellena fuera de la imagen y no la imagen. estoy utilizando estos procedimeintos

procedure TFPaciente.Image10MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
XRaton:=X;
YRaton:=Y;
end;
procedure TFPaciente.Image4Click(Sender: TObject);
begin
Image4.Canvas.Brush.Color := clgreen;
Image4.Canvas.FloodFill(XRaton,YRaton,clblack,fsborder);
end;