Bei Return und ListBox Cursor ist oben

[Opa]

Bei Return springt der Cursor immer nach oben.
Wenn die ListBox auf Style := lbVirtual; eingestellt wurde.
Warum und wie kann man das ändern.

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls,  AcroPDFLib_TLB, OleCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Data(Control: TWinControl; Index: Integer;
      var Data: String);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  with ListBox1 do
  begin
    Style := lbVirtual;
    Count := 100;
    Width := 300;
    Align := alLeft;
  end;
end;

var
  X : Integer = 1;

procedure TForm1.ListBox1Data(Control: TWinControl; Index: Integer;var Data: String);
begin
  Data :='Man bin ich ein Teil zum...'+intToStr(X);
  inc(X);
end;

end.

MFG