コンボボックスで選んだ対象のリストボックスにアイテム追加するのに以下のようなコード書いた。
ヘルプにはnew したら disposeしろと書いてあったのですが
disposeのところで　「無効なポインタ操作」というエラーが出てしまいます。
何がいけないのでしょうか。

procedure TForm1.Button1Click(Sender: TObject);
type Plistbox=^Tlistbox;
var target:Plistbox;
begin
new(target);
case ComboBox1.ItemIndex of
0: target:=@listbox1;
1: target:=@listbox2;
end;

target^.items.add('ああ');

dispose(target);
end;