Problemas com relatório

esses dois na primeira linho do relatorio estão aparecendo em preto e tinha q ser como as demais branco, oq eu faço para ficar branco tbm?

QRDBText1.Font.Color:=ClWhite;
PsQRDBText8.Font.Color:=ClWhite;



procedure TfrmRelDUPDoc.QRLabel6Print(sender: TObject; var Value: String);
begin
inherited;
If qrydespacho.FieldByName(´flsituacao´).asinteger = 3 then
begin
Value:=´CANCELADO´;
QRLabel6.Font.Color:=ClRed;
PsQRDBText6.Font.Color:=ClWhite;
QRDBText1.Font.Color:=ClWhite;
PsQRDBText8.Font.Color:=ClWhite;
end
else
begin
Value:=´´;
PsQRDBText6.Font.Color:=ClBlack;
QRDBText1.Font.Color:=ClBlack;
PsQRDBText8.Font.Color:=ClBlack;
end;
end;