Einzelne Einträge in einer Combobox verändern

[mase1908]

Ich habs jetzt:

Delphi-Quellcode:

begin
  cb := TComboBox(Control);
  zeileone := Memo1.lines[0];
  zeiletwo := Memo1.lines[1];
  zeilethree := Memo1.lines[2];
  case Index of
    0 :
      begin
        cb.Canvas.Brush.Color := clWhite;
        cb.Canvas.FillRect(Rect);
        cb.Canvas.Font.Color := clBlack;

        if zeileone[length(zeileone)] = '1' then
           cb.Canvas.Font.Style := [fsBold]
        else if zeileone[length(zeileone)] = '2' then
           cb.Canvas.Font.Style := [fsItalic]
        else if zeileone[length(zeileone)] = '3' then
           cb.Canvas.Font.Style := [fsUnderline]
        else if zeileone[length(zeileone)] = '4' then
           cb.Canvas.Font.Style := [fsStrikeOut];

        cb.Canvas.TextOut(Rect.Left,Rect.Top,cb.Items[Index]);
      end;
    1 :
      begin
      ...

Ich frage einfach die Zeilen im Memo ab!!! Und führe die Ereignisse in der Case-Anweisung durch.