[Kapitoshka438]

Код:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  S: string;
begin
  with TListBox(Control), Canvas do
  begin
    S := Items[Index];
    FillRect(Rect);
    SetBkMode(Handle, TRANSPARENT);
    SetTextAlign(Handle, TA_CENTER);
    TextOut(ClientWidth div 2, Rect.Top, S);
  end;
end;

И еще установи у ListBox'а свойство свойство Style = lbOwnerDrawFixed.