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