У тебя серая картинка на черном фоне?
Если тебе надо заменить например в картинке черный цвет на белый делай так
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
i,j: integer;
begin
for i:=0 to Image1.Picture.Width do
for j:=0 to Image1.Picture.Height do
if Image1.Canvas.Pixels[i,j]=clBlack then
Image1.Canvas.Pixels[i,j]:=clWhite;
end;