[ecfisa]

Hola darkamerico.

No te aconsejo complicarte con semejante código si la tarea que va a desempeñar no lo justifica.

Mira que simple resulta como te sugiere Neftali:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with ListBox1 do
  begin
    Items.Add('Item'+IntToStr(Random(100)+1)); // (un item X...)
    Label1.Caption := IntToStr(Items.Count);
  end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  with ListBox1 do
    if ItemIndex <> -1 then
    begin
      Items.Delete(ItemIndex);
      Label1.Caption := IntToStr(Items.Count);
    end;
end;

Saludos.