DBGrid1 de Alta Boşluk Eklemek

[OZCANK]

Arkadaşlar , Ben bu şekilde bir kod ile çözmeye uğraştım bir türlü renklendirme yapamadım yardım eder misiniz?

Aktarılmışları ve aktarılmamışları ayrı renk yapmak istedim.

procedure TForm29.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if FaturaListe.FieldByName('DURUM').AsString='Aktarılmamış' then
Begin
 DBGrid1.Columns[6].Color:=clYellow;
end
Else if FaturaListe.FieldByName('DURUM').AsString='Aktarılmış' then
Begin
 DBGrid1.Columns[6].Color:=clBlue;
end;
end;
end.