[Dasha1986]

Значит я добавлю два мемо, в один запишу:

clRed
clGreen
clBlue
........

а в другой:
Red
Green
Blue
......
и запишу в коде так
вместо

Код:

AddCommand(1, 'Red', 'FormColor', '');
AddCommand(2, 'Green', 'FormColor', '');
AddCommand(3, 'Blue', 'FormColor','');

это

Код:

for i:=0 to  Memo2.Items.Count -1  do
AddCommand(i, 'Memo2.Lines[i]', 'FormColor','');

вместо

Код:

case dwID of
    1: fForm.Color := clRed;
    2: fForm.Color := clGreen;
    3: fForm.Color := clBlue;
  end

Код:

for i := 0 to Memo1.Lines.Count -1 do
if StrToInt(Memo1.Lines[i]) then

fForm.Color := Memo1.Lines[i];

то есть, хочу чтобы оно циклом добавлялось нужным цветом.