[Caminante]

En el listbox pon la propiedad style en lbOwnerDrawFixed y en el evento ondrawitem pon esto

Código Delphi [-]
 
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
VAR
  Texto :string;
begin
  with Tlistbox(Control)do
  begin
    Texto:=items[index];
    canvas.FillRect(rect);
    inflaterect(rect,-2,-2);
    drawtext(canvas.Handle,pchar(texto),-1,rect,DT_RIGHT or DT_VCENTER)
  end;

Espero que te sirva.

Saludos