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