MDIChild forma - pomoc

Code:

procedure TFrameForm.New1Click(Sender: TObject);
Var i : integer;
begin
  if MDIChildCount = 0 then // Ako nemamo ni jedan MDI prozor...
     TEditForm.Create(Self);
     Exit
     end else // Ako imamo trazimo odredjenu klasu prozora...
     for i := 0 to MDIChildCount-1 do if MDIChildren[i] is TEditForm then begin
                                                                          MDIChildren[i].Show;
                                                                          Exit;
                                                                          end;
     TEditForm.Create(Self); // Ako nema te klase onda kreiramo...
end;