ListView选中行的颜色(10分)

1.Listview选中行的颜色能不能自己设置，怎么做
2.Listview的每个item都放置一个button，怎样才能当选中该行时button的颜色也变为选中行的颜色
3.单击item的button时该item的行也被选中，
谢谢！

procedure TForm1.ListView1SelectItem(Sender: TObject;
Item: TListItem;
Selected: Boolean);
var
ARect:TRect;
begin
ListView1.Refresh;
if item.Selected then
begin
ARect:=Item.DisplayRect(drLabel);
ListView1.Canvas.Brush.Color:=clred;
ListView1.Canvas.FillRect(ARect);
ListView1.Canvas.Font:=ListView1.Font;
ListView1.Canvas.TextOut(ARect.Left+2,ARect.Top,Item.Caption);
end;