怎么给大量的记录赋初值____和_____怎么修改底色(50分)

第一个问题：
如何给image元件修改底色？
; ; ;if image1.canvas.pixels[w,x] = clblack then
; ; ; ; ;Image1.Canvas.Pixels[W, X] := clred;
意思是将黑色的底色换成红色，但这样的速度太慢了。
有更好的方法吗？
注意：只修改底色，不要把image上面的文字和图形的color也改掉了。

第二个问题：
在C中，我们这样定义：
typedef struct {
; ;int ;count;
; ;int ;statue;
; ;int ;x0;
; ;int ;y0;
; ;int ;width;
; ;int ;high;
; ;char string[10];
; ; } KeyInfo;
KeyInfo kxy[128] = {
{0, 0 , ; 0 , ; ;0 , ; 0 , ; ; 0 , ;"" ; ; }, ; /* 000(0X00H): ; ; */
{0, 0 , ;14 , ROW1 , ;33 , HIGH1 , "Esc" ; }, ; /* 001(0X01H): ;ESC */
{0, 0 , ;44 , ROW2 , ;39 , HIGH2 , "1" ; ; }, ; /* 002(0X02H): ;N1 ; */
{0, 0 , ;86 , ROW2 , ;39 , HIGH2 , "2" ; ; }, ; /* 003(0X03H): ;N2 ; */
{0, 0 , 128 , ROW2 , ;39 , HIGH2 , "3" ; ; }, ; /* 004(0X04H): ;N3 ; */
{0, 0 , 170 , ROW2 , ;39 , HIGH2 , "4" ; ; }, ; /* 005(0X05H): ;N4 ; */
{0, 0 , 212 , ROW2 , ;39 , HIGH2 , "5" ; ; }, ; /* 006(0X06H): ;N5 ; */
{0, 0 , 254 , ROW2 , ;39 , HIGH2 , "6" ; ; }, ; /* 007(0X07H): ;N6 ; */
{0, 0 , 296 , ROW2 , ;39 , HIGH2 , "7" ; ; }, ; /* 008(0X08H): ;N7 ; */
......
}
在Delphi中用什么以及怎么实现呢？
如果用记录，那怎么定义这么多的记录？

canvas.brush.color:=clred
至于第二个嘛可以用定义记录文件来实现

第二个问题用 记录型数组怎么写呢？