MDI: Child erstellen

[rebugger]

Habe irgendwie einen Denkfehler:

Delphi-Quellcode:

var
  iNew_num   : Integer;
  iNew_child : TfrmChild;
begin
  if MDIChildCount > 0 then
    iNew_num := (MDIChildren[MDIChildCount - 1].Tag + 1)
  else
    iNew_num := 1;

  iNew_child := TfrmChild.Create(nil);
  with iNew_child do
  begin
    Tag     := iNew_num;
    Name    := 'CodePage' + IntToStr(iNew_num);
    Caption := 'unbenannt' + IntToStr(iNew_num);
  end;
end;

Beim ersten Aufruf hat iNew_num den Wert 1, beim 2. Aufruf den Wert 2, aber dem dritten Aufruf gibts Probleme, da schon wieder 2 rauskommt.

Mein Fehler muss hier irgendwodrin liegen:

Delphi-Quellcode:

  if MDIChildCount > 0 then
    iNew_num := (MDIChildren[MDIChildCount - 1].Tag + 1)
  else
    iNew_num := 1;