Mudar cor da linha do dbgrid ao mudar de linha

Olá, parece meio confuso mas vamos lá,

Tenho que montar uma tela de conferência de dados, listo esses dados em uma grid, e vou conferindo os dados linha a linha, após conferir os dados da primeira linha, passarei para a segunda, e a linha de cima muda de cor para constatar que foi lido. Até aí tudo bem, eu conseguir fazer isso colocando um campo chamado LIDO na tabela QueryMovto, e implantei o código.

procedure TFormConfereFilme.DBGrid1DrawColumnCell(Sender: TObject;
 const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin If Dados.QueryMovtoLIDO.Value = 'True' then

 Dbgrid1.Canvas.Font.Color:= clGreen;
 Dbgrid1.DefaultDrawDataCell(Rect, dbgrid1.columns[datacol].field, State);

end;

Ou seja, quando QueryMovtoLIDO.Value = 'True' a linha fica verde

Até aí estou conseguindo fazer mudar de cor, mas toda hora que passar na coluna LIDO, tenho que escrever True.

Será que tem algum modo de fazer automático, sem ter que ficar escrevendo True toda hora ?

Obrigado desde já.