Отключение канала в изображении

[Zibiv]

Ребята, подскажите вот код который который по идеи должен оставлять только зеленый канал изображения.... Он вроде так и делает, изображение принимает оттенки зеленого, но если делать тоже самое в фотошопе, то изображение становится в оттенках серого и это правильно!!! В чем фишка????

procedure TForm1.btn1Click(Sender: TObject);
type
  TRGB = record
    B, G, R: Byte;
  end;
  pRGB = ^TRGB;
var
  x, y: Integer;
  Dest: pRGB;
begin

   Img1.Picture.Bitmap.PixelFormat := pf24Bit;
  for y := 0 to Img1.Picture.Bitmap.Height - 1 do
  begin
    Dest := Img1.Picture.Bitmap.ScanLine[y];
    for x := 0 to Img1.Picture.Bitmap.Width - 1 do
    begin
      with Dest^ do
      begin
      R := 255 - 255;
      B := 255 - 255;
              end;
      Inc(Dest);
     end;

   end;

end;

Очень надо знать!!!!

Или фотошоп специально сводит цвет в оттенки серого, что бы было виден контраст светлого с темным, так как и так понятно, что изображение будет того цвета которого включен канал??

[veniside]

так это просто вопрос представления. Можно зелёный канал вывести хоть красным цветом, хоть синим, какая разница. Хочется серым, какие проблемы?

with Dest^ do begin
      R := G;
      B := G;
end;

[Zibiv]

Точно! Спасибо большое!