程序代码：

procedure rowcolor(index:Integer);
var
  rect:TRect;
begin
  Rect.Left := 0 ;
  Rect.Top := index * listbox1.ItemHeight ;
  Rect.Bottom := Rect.Top + listbox1.ItemHeight  ;
  Rect.Right := listbox1.ClientWidth - 1;
  listbox1.Canvas.FillRect(rect);
  listbox1.Canvas.Font.Color:=clRed;
  listbox1.Canvas.TextOut(rect.Left,rect.Top,listbox1.Items.Strings[index]);
end;