Ingresar datos en un listbox a la derecha

[*Caro*]

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

[CarlosAlberto]

Estimado Caminante: funcionó lo de colocar el texto numérico en el margen derecho pero los números se ven cortados por la mitad en cada fila del Listbox. Se ve el número de la mitad para arriba. ¿Cómo lo soluciono?