ListBoxのStyleプロパティをlbOwnerDrawFixedにしてOnOwnerDrawイベントで
以下のコードを記述します
これで選択項目がイタリックで表示されるListBoxの出来上がり
MultiSelectとExtendedSelectプロパティをTrueにするとちょっと面白いです

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListBox).Canvas do
  begin
     FillRect(Rect);

     {選択項目ならイタリックにする}
     if odSelected in State then
     begin
        Font.Style:=Font.Style+[fsItalic];
     end;

     TextOut(Rect.Left,Rect.Top,(Control as TListBox).Items[Index]);
  end;
end;

                              97/10/20(Mon) 11:40pm  VEJ04660 ＫｅＹ

Original document by ＫｅＹ          氏 ID:(VEJ04660)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。