[Михалыч]

Нужно следующее: если условие выполняется, то цвет текста в поле Мемо1.Text становиться зеленого цвета, а фон к примеру синим, а если не выполняется то текст красный на желтом поле.
Спасибо

[Drozh]

Код:

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