insertar salto de linea en listbox

[*Caro*]

Hola giocatore, tienes que dibujar el texto dentro de tu Lisbox:

La propiedad Style -> lbOwnerDrawVariable y utilizar los eventos OnDrawItem para dibujar el texto y OnMeasureItem para la altura de cada item.

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_WORDBREAK);
end;
 
procedure TForm1.ListBox1MeasureItem(Control: TWinControl; Index: Integer;
  var Height: Integer);
var
 aItem : String;
 aRect: TRect;
begin
 aRect := ListBox1.ClientRect;
 aItem := ListBox1.Items[Index];
 Height := DrawText(ListBox1.Canvas.Handle,PChar(aItem), StrLen(PChar(aItem)),aRect,DT_WORDBREAK);

de hecho tienes que arreglar algunas cositas que talvez no funcionen bien, pero esa la idea.

Saluditos