listview linien zeichnen?

[gandime]

hi,
ich möchte die einzelnen items mit strichen voneinander trennen mein erster versuch sieht bildlich so aus:
Bild
mein code:

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  r_temp,r_temp2:real;
  i:integer;
begin
  Sender.Canvas.Pen.Color:=rgb(195,196,200);
  r_temp:=round(Item.Index/2);
  r_temp2:=Item.Index/2;
  if (Item.SubItems.Strings[0]='angriff') then
  begin
    Sender.Canvas.Brush.Color:=rgb(241,209,209);
  end
  else if (r_temp=r_temp2) then
  begin
    Sender.Canvas.Brush.Color:=rgb(223,230,235);
  end
  else
  begin
    Sender.Canvas.Brush.Color:=clwhite;
  end;
  for I := 0 to ListView1.Columns.Count -1 do
  begin
    Sender.Canvas.MoveTo(ListView1.Column[i].Width-1,0);
    Sender.Canvas.LineTo(ListView1.Column[i].Width-1,ListView1.Height);
  end;
end;

wie bekomme ich die horizontalen striche hin undwie kann ich das problem beheben das manchmal der strich nicht im vordergrund ist, wie auch auf dem bild zu sehen ist?