TabSet mach Probleme

[Thomas83]

Servus,

da meine "Tabs" alles Formulare sind, habe ich mit der TabSet eine Reiter erstellt.
Mit dieser Funktion lege ich eine Tab an

Delphi-Quellcode:

procedure AddTabSet(Caption: String; Obj: Tobject);
var
  i : integer;
begin
  i := TabSet.Tabs.Add(Caption);
  TabSet.Tabs.Objects[i] := Obj;
  TabSet.TabIndex := i;
end;

...
AddTabSet('Form1', meineForm);

Mit dieser lösche ich wieder das Formular aus dem TabSet

Delphi-Quellcode:

procedure DelTabSet(Obj: Tobject);
var
  i : integer;
begin
  for i:=TabSet.Tabs.Count-1 downto 0 do
    if TabSet.Tabs.Objects[i] = obj then begin
      try
        TabSet.Tabs.Delete(i);
      except

      end;
      exit;
    end;
end;

...
DelTabSet(meineForm);

Allerdings wenn ich nur eine Form habe kommt eine Exception mit Listenindex bla bla bla.
Wenn ich "TabSet.TabIndex := i;" oben weg lasse kommt kein Fehler.
Try except funktioniert auch solange ich es nicht mit delphi starte. Lass ich es über Delphi starten kommt auch hier immer ein Fehler, was natürlich voll bervig ist.

Habe ich nochwas vergessen?
Mfg