GetRValue, GetBValue und GetGValue ...

[Alexander]

Ich verstehe zwar irgendwie deine Frage ncit wirklich (was soll ersetzt werden?), aber vielleicht hilf dir das hier:
    label1.Caption := IntToStr(GetRValue(Image1.canvas.pixels[x,y]));