Listbox Scrollt horizontal statt vertikal

[Luckie]

Geht wunderbar:
Listbox im OI 700 Pixel breit und dieser Code:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SendMessage(Listbox1.Handle, LB_SETHORIZONTALEXTENT, 750, 0);
end;

.
Da nach hat die Listbox eine horizontale Scrollbar.