1:

 SendMessage(Listbox1.Handle, LB_SetHorizontalExtent, 1000, Longint(0));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure HorScrollBar(ListBox: TListBox; MaxWidth: Integer); 
var 
  i, w: Integer; 
begin 
  if MaxWidth = 0 then 
    SendMessage(ListBox.Handle, LB_SETHORIZONTALEXTENT, MaxWidth, 0) 
  else 
  begin 
    { get largest item } 
    for i := 0 to ListBox.Items.Count - 1 do 
      with ListBox do 
      begin 
        w := Canvas.TextWidth(Items[i]); 
        if w > MaxWidth then 
          MaxWidth := w; 
      end; 
    SendMessage(ListBox.Handle, LB_SETHORIZONTALEXTENT, 
      MaxWidth + GetSystemMetrics(SM_CXFRAME), 0); 
  end; 
end;					

1:
2:
3:
4:

function gebeAuswahlVonListbox: String
begin
    result := listBox.Items.Strings[listBox.ItemIndex];
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    ListBox: TListBox;
    function gebeAuswahlVonListbox;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function TForm1.gebeAuswahlVonListbox: String
begin 
    result := listBox.Items.Strings[listBox.ItemIndex];
end;

end.