DBGrid1 de Alta Boşluk Eklemek

[OZCANK]

(30-04-2022, Saat: 12:25)cinarbil Adlı Kullanıcıdan Alıntı:

(30-04-2022, Saat: 12:08)OZCANK Adlı Kullanıcıdan Alıntı: Aynen bu şekilde kullandım ama renklendirmedi?

procedure TForm29.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
Begin
if FaturaListe.FieldByName('DURUM').AsString='Aktarılmış'
    then begin
      DBGrid1.Canvas.Brush.Color:=Clyellow;
      DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;

if FaturaListe.FieldByName('DURUM').AsString='Aktarılmamış'
    then begin
      DBGrid1.Canvas.Brush.Color:=Clskyblue;
      DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;

end;

 o  zaman sorun ıf karşılaştırmasında

if FaturaListe.FieldByName('DURUM').AsString='Aktarılmış'

burada bir yanlışlık var kayıt sayısı az ise (çünkü her sutun çiziminde buraya gelecek program) aşağıdaki gibi deneyin
Procedure en başına ıf satırı üstüne 

Showmessage(FaturaListe.FieldByName('DURUM').AsString);

burada Aktarılmış veya Aktarılmamış yazıyorsa 
son olarak 

if Trim(FaturaListe.FieldByName('DURUM').AsString)=Trim('Aktarılmış')

deneyin.

Tüm satırı değilde sadece DURUM sütününü nasıl yaparım?