for j := 0 to image1.picture.Height -1 do
begin
  for i := 0 to image1.picture.width -1 do
    begin
      while length(text) > 0 do
        begin
           r := getrvalue(image1.Canvas.Pixels[i,j]);
           if text[1] = '0' then r := r shr 1 shl 1 else r := r or 1; delete(text,1,1);
           g := getgvalue(image1.Picture.Bitmap.Canvas.Pixels[i,j]);
           if length(text) > 0 then if text[1] = '0' then g := g shr 1 shl 1 else g := g or 1; delete(text,1,1);
           b := getbvalue(image1.Picture.Bitmap.Canvas.Pixels[i,j]);
           if length(text) > 0 then if text[1] = '0' then b := b shr 1 shl 1 else b := b or 1; delete(text,1,1);
           image1.Canvas.Pixels[i,j] := r + g shl 8 + b shl 16 ;
           showmessage(format('%8.8X',[image1.Picture.Bitmap.Canvas.Pixels[i,j]]));
        end;
    end;
end;