if (InfoBroker1.Info.DataSetByID('XWXXSJJ').FieldByName('FRecType').AsString = '2') and // FRecType
(InfoBroker1.Info.DataSetByID('XWXXSJJ').FieldByName('FStatus').asstring<>'3') then //FStatus
begin
AColor := Graphics.clBlue;
AFont.Color := Graphics.clRed;