Hola CarlosAlberto, puedes utilizar el evento OnDrawItem de tu Listbox y la función DrawText para dar formato al texto:
Código Delphi
[-]
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
aItem : String;
begin
aItem := ListBox1.Items[Index];
DrawText(ListBox1.Canvas.Handle, PChar(aItem), StrLen(PChar(aItem)), Rect, DT_RIGHT);
end;
La propiedad Style del ListBox en lbOwnerDrawFixed.
Saluditos