Imprimir en diferentes colores

[luxus]

Hola a todos,
Tengo una pequeña duda a ver si me podeis echar una mano.
Estoy creando una aplicación en el que se quiere ver el extracto de movimientos de una cuenta corriente.
Tengo el query implementado y en un DBGrid muestro la fecha,el concepto, el importe, el saldo y el tipo de movimiento (entrada/ingreso o salida/reintegro).

Mi duda viene cuando quiero imprimir dicho extracto de cuentas y dependiendo del tipo de movimiento se ha de imprimir en un color u otro. A continuación os muestro el codigo fuente:

FMovimientosCuentas.ADOQuery1.First;
while not(FMovimientosCuentas.ADOQuery1.Eof) do
begin
if (FMovimientosCuentas.ADOQuery1.FieldValues['movimiento']='ENTRADA') then
color:='clBlue'
else
color:='clRed';
movimiento:=FMovimientosCuentas.ADOQuery1.FieldValues['movimiento'];
linea:=FMovimientosCuentas.ADOQuery1.FieldValues['codigo'];
FImpresionExtractoCuentas.QRMemo1.Lines.Add(linea);
FImpresionExtractoCuentas.QRMemo1.Font.Color:=StringToColor(color);
linea:=FMovimientosCuentas.ADOQuery1.FieldValues['fecha'];
FImpresionExtractoCuentas.QRMemo2.Lines.Add(linea);
FImpresionExtractoCuentas.QRMemo2.Font.Color:=StringToColor(color);
linea:=FMovimientosCuentas.ADOQuery1.FieldValues['concepto'];
FImpresionExtractoCuentas.QRMemo3.Lines.Add(linea);
FImpresionExtractoCuentas.QRMemo3.Font.Color:=StringToColor(color);
linea:=FMovimientosCuentas.ADOQuery1.FieldValues['importe'];
FImpresionExtractoCuentas.QRMemo4.Lines.Add(linea);
FImpresionExtractoCuentas.QRMemo4.Font.Color:=StringToColor(color);
linea:=FMovimientosCuentas.ADOQuery1.FieldValues['saldo'];
FImpresionExtractoCuentas.QRMemo5.Lines.Add(linea);
FImpresionExtractoCuentas.QRMemo5.Font.Color:=StringToColor(color);
FMovimientosCuentas.ADOQuery1.Next;
end;

¿Me podeis decir donde tengo el fallo?
Gracias y un saludo