procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
    if Index=Bedingung then begin // Prüfen, welcher Index die Bedingung erfüllt
      Listbox1.Canvas.Brush.Color := clRed; // Hintergrundfarbe auf Rot setzen
      Listbox1.Canvas.Font.Color := clYellow; // Schriftfarbe auf Grün setzen
    end;
    Listbox1.Canvas.FillRect(Rect); // ausgewählten Index(bereich) färben
    Listbox1.Canvas.TextOut(Rect.Left,Rect.Top,Listbox1.Items[Index]); // Text drüberpinseln
    if odFocused in State then DrawFocusRect(Listbox1.Canvas.Handle,Rect); // Pixelrahmen entfernen
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with Sender as TStringGrid do
    begin
      if (gdfixed in State) then
        begin
          canvas.Brush.Color:=FixedColor;
          canvas.FillRect(rect);
          if Ctl3D then
         //wenn Fixed color nicht geändert wurde und den Standard-win-einstellungen =clbtnface entspricht,
           Frame3D(canvas,
                  rect,
                  clBtnHighlight,
                  clBtnShadow,
                  1);
          //sonst
          //uses graputil
{          Frame3D(canvas,
                  rect,
                  GetHighLightColor(FixedColor),
                  GetShadowColor(FixedColor),
                  1);}
        end
       else
       //wenn selektiert
        if (gdselected in State) then
          ...
          //Brush auf clhighlight setzen und hier halt keinen focusrahmen zeichnen
        else
          //normal zeichnen
          ...
          //brush auf Clwindow, bzw Color des Grid setzen

      //und irgendwann den Text, oder gleich drawtext verwenden
      canvas.textout(rect.left+2,rect.Top+2,cells[acol,arow]);
    end;
end;