Font.style

subdigger

ПОчему-то невыходит сменить стиль...

var
  Val: String;
begin
  Val := trim(TfrxMemoView(sender).text);
  if ValidInt(Val) then
    if strtoint(Val) = 0 then begin                      
      TfrxMemoView(sender).text := 'В';
//      TfrxMemoView(sender).Font.Style := clRed;
      TfrxMemoView(sender).Font.Style := [fsBold];                                                 
    end;               
end;

subdigger

уже нашёл