alle Strings aus Edit.Text in der ListBox farbig darstellen

[newuser01]

Das einzige was ich hinbekomme ist das jede ganze Zeile gefärbt wird aber nicht die Wörter die zb: im Edit stehn

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin

ListBox1.Style := lbOwnerDrawFixed;
ListBox1.Items.Add('test1 test2 test3 test4 test5 test6');

end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin

  with (Control as TListbox) do
  begin

    if (Index mod 1 = 0) then
    begin
      Canvas.Brush.Color := clRed;
    end;
    DrawText(Canvas.Handle, Pchar(Items[Index]), Length(Items[Index]),Rect,DT_SINGLELINE or DT_VCENTER); // Text
  end;

end;