[Drozh]

Код:

 if Flag then
 begin
  Memo1.Font.Color := clGreen;
  Memo1.Color := clBlue;
 end
 else
 begin
  Memo1.Font.Color := clRed;
  Memo1.Color := clYellow;
 end;