hvad er der galt her?

hvad er der galt her?
jeg har en form med et ListView, hvor der skal kunne skrives tekst i forskellig farve i de enkelte linjer.. (jeg har viewstyle = vsReport og 4 colums) hvis man \"hiver\" for meget i dem (colums) (efter at man har skrevet til vinduet) begynder der at komme grafik fejl.. og hvis man bliver ved går windows i selvsving..

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
    Sender.Canvas.Font.Color := TColor(Item.SubItems.Objects[Subitem - 1]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Listitem:  TListItem;
begin
    Listitem := ListView1.Items.Add;
    ListItem.Caption := \'Palle0\';
    ListItem.SubItems.AddObject(\'Palle1\', TObject(TColor(clred)));
    ListItem.SubItems.AddObject(\'Palle2\', TObject(TColor(clBlue)));
    ListItem.SubItems.AddObject(\'Palle3\', TObject(TColor(clLime)));
end;