Сделала так, только не работает, выдает один цвет, голубой(((
Код:
for i := 0 to Form1.Memo2.Lines.Count -1 do
begin
if dwID = StrToInt(Form1.Memo2.Lines[i]) then
fForm.Color := StringToColor(Form1.Memo2.Lines[i]);
end;
Код:
for i:=0 to Memo1.Lines.Count -1 do
begin
AddCommand(i, Memo1.Lines[i], 'FormColor','Change form color to red');
end;