inkompatible typen TBitmap TImage

[supermuckl]

einfacher gehts mit der combobox als ItemList eingestellt
da kann man dann nach dem index die farbe setzen

Delphi-Quellcode:

var
farbe: integer;

als combobox:

farbe := combobox1.itemindex; // 0 ist das erste item
 p^[farbe+1]:=255;

oder als radio button:

if RadioButton1.checked then farbe := 1;
if RadioButton2.checked then farbe := 2;
if RadioButton3.checked then farbe := 3;

 p^[farbe]:=255;