TColor to TRGBTriple

[macomics]

Тем более если это только для одного пиксела, чем вам не нравится вот такое объявление:

var
  color: record
    case Byte of
      0: (a: TColor);
      1: (bb: TRGBTriple);
  end;

как минимум freepascal его точно принимает. А байты можно не переставлять. Используйте как есть, прокомментировав реальные значения.

color.bb.rgbtRed := blueValue; // Это синий цвет
color.bb.rgbtGreen := greenValue;
color.bb.rgbtBlue := redValue; // Это красный цвет

[Kronos913]

Подскажите, где ошибка

Синий выдаёт нормально
Зелёный выдаёт в графу красного
Красный вообще теряется

Procedure TColorToRGB(const Color:TColor; var r, g, b:byte);
asm
  mov eax, Color

  mov ecx, r
  mov [ecx], al

  shr eax, 8

  mov ecx, g
  mov [ecx], al

  shr eax, 8

  mov ecx, b
  mov [ecx], al
end;

[macomics]

Может проблема с вызовом процедуры. У меня например все ОК

[Kronos913]

Самое смешное: заменил везде ecx на edx и всё заработало