Variablenübergabe - ich verzweifle

[raena]

hallo,

ich bin langsam am ende .
Die Übergabe eine Listbox variable klappt einfach nicht von einer Unit zu einer anderen.
Ich habe viel gelesen über public und private, alles ausprobiert, die Variable wird einfach nicht
übergeben. Was mach ich nur falsch. In der Sub Unit kommt einfach nix an. Hilfe

Delphi-Quellcode:

unit Main;

interface

uses
  Sub, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm3 = class(TForm)
    Button1: TButton;
    listboxm:TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  FormMain: TForm3;


implementation
{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
listboxm.AddItem('Test',TObject(-1));
sub.testen:=listboxm;
FormSub.showmodal;
end;

end.





unit Sub;

interface

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

type
  TForm5 = class(TForm)
    ListBoxSub: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
 { Public declarations }

  end;
  var FormSub: TForm5;
    testen:TListBox;
implementation
{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
begin
ListBoxSub:=testen;
listboxsub.Refresh;
listboxsub.Repaint;
end;

end.