Alinear un listbox como si se tratara de un memo

[krlox31416]

Hola programadores!!!
Tengo un problema con un componente listbox, me gustaría saber si este componente tiene alguna propiedad para alinear los ítems agregados al listbox como ejemplo esta el memo en el cual se especifica el tipo de alineación ya sea alinear a la derecha, izquierda o centrado. type TAlignment = (taLeftJustify, taRightJustify, taCenter);
Eje:

Código Delphi [-]
procedure TForm1.Alienear_a_la_derechaClick(Sender: TObject);
begin
Memo1.Alignment:=taRightJustify;
end;
procedure TForm1.Alienear_a_la_izquierdaClick(Sender: TObject);
begin
Memo1.Alignment:=taLeftJustify;
end;
procedure TForm1.CentrarClick(Sender: TObject);
begin
Memo1.Alignment:=taCenter;
end;

el problema es que después de hacer una consulta cargo en el listbox los siguientes datos de mi tabla artículos con los atributos: Descripción y Precio

Código Delphi [-]
while not datamodule2.Table2.Eof do                                  
begin
ListBox1.Items.Add(Datamodule2.Table2.FieldByName('Descripción').AsString
+'                             $ '+DataModule2.Table2.FieldByName('Precio').AsString+' PESOS');
Edit2.Text:=DataModule2.Table2.Fieldbyname('Precio').AsString;
cobros:= cobros + StrToFloat(Edit2.Text);
Edit2.Text:=FloatToStr(cobros);
Edit1.Text:='$ '+Edit2.Text +' pesos';
i:=1;
Edit9.Text:=CantidadEnLetra(StrToFloat(Edit2.Text) ,i);
ComboBox1.Text:='';
ComboBox1.SetFocus;
Exit;
end;

como podrán ver concateno el precio a la descripción y dejo espacios en blanco para que el precio no este muy junto a la descripción.
Así es como me queda en el listbox con el código anterior:

Código Delphi [-]
COCA COLA DE 600  ML     $ 6.00 PESOS
CERVEZA CORONA MEDIA      $ 8.00 PESOS
CIGARROS MALVORO      $19.00 PESOS
TEQUILA CAZADORES 1 L     $ 185.00 PESOS

Me gustaría que cada que realizo la consulta el precio siempre este justificado alineado a la derecha para que el usuario visualice mejor la lista de los precios y por cuestiones de estética.
Eje:

Código Delphi [-]
COCA COLA DE 600  ML          $ 6.00 PESOS
CERVEZA CORONA MEDIA        $ 8.00 PESOS
CIGARROS MALVORO              $19.00 PESOS
TEQUILA CAZADORES 1 L     $ 185.00 PESOS

Además el listbox es perfecto debido a sus características y se adecua al sistema que estoy haciendo por eso no utilizo el memo porque no me permite seleccionar su contenido e ir haciendo todo un recorrido como el listbox en sus ítems.
Esto fue lo primero que se me ocurrió:

Código Delphi [-]
ListBox1.Items.Text:='                     '+ListBox1.Items[0];

Pero lo que note fue que tendría que ir incrementando la posición
Cual será la solución???
Utilizo delphi 5 y 6…
Por adelantado 1000 gracias si alguien puede ayudarme!!!
Estoy a sus ordenes!!!