La Imagen tiene X pixels de ancho, por Y pixels de Alto, eso te lo indican las propiedades Height y Width. Basta con que hagas un recorrido por todos los pixels de la imagen (pixels[x,y]) con un doble
for y cambies el valor de la propiedad pixel que tu quieres por el valor del color nuevo; Algo así:
Código Delphi
[-]
var
oldColor, NewColor:Integer;
i,j:Integer;
begin
...
rellena las propiedades utilizando el combo de selección de colores, por ejemplo
...
for i := 0 to (img.Height - 1) do begin
for j := 0 to (img.Width - 1) do begin
if (img.Canvas.Pixel[i,j] = oldColor) then begin
img.Canvas.Pixel[i,j] := newColor;
end;
end;
end;
... Es una aproximación, pero te puede servir para probar...