전에 제가 태스트할 때 몰라서..
아주 무식한 방법을 알려드렸었는데요..
불현듯 생각나서 해보니..
역시 제가 몬가 빠트렸더군요..
ComboBox의 OnDrawItem이라는 Event를 이용하시되..
Style 프로퍼티를 csOwnerDrawVariable로 선택하세요..
소스는 아래와 같습니다..
공백마다 분리하는 것은 직접해보세요..

From 류..

---------

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
Var
   iFont : Integer;
   stTemp : String;
begin
  // Style 프로퍼티를 csOwnerDrawVariable로 선택하세요..
  With TComboBox(Control) do
    Begin
      stTemp:= Items.Strings[Index];
      Canvas.Font.Color:= clRed;
      iFont:= 3;
      Canvas.TextOut(Rect.Left+iFont, Rect.Top, Copy(stTemp, 1, 3));
      iFont:= iFont+Canvas+TextWidth(Copy(stTemp, 1, 3));
      Canvas.Font.Color:= clNavy;
      Canvas.TextOut(Rect.Left+iFont, Rect.Top, Copy(stTemp, 4, 7));
    End;
end;