MDIChild y MainMenu

[Lenny]

Hola estimados, tengo un pequeño problema, les agradesco de antemano cualquier ayuda...
Tengo unas Form's MdiChild cada cual con su MainMenu, todo ok hasta ak, pero cuando habro el Form desde el MainMenu me repite el mismo Form por cada vez que ingreso y no lo coloca en primer lugar como deveria. El codigo que utilizo funiona bien desde un Button, el cual es este:

Código Delphi [-]
procedure TPRODUCTOS.Clientes1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to Pred(MDIChildCount) do
    if MDIChildren[i] is TCLIENTES then
    begin
      MDIChildren[i].BringToFront;
      Exit
    end;
  with TCLIENTES.Create(Application) do
  begin
    FormStyle := fsMDIChild;
    OnClose := AlCerrar;
    Show
  end
end;

Cualquier ayuda bienvenida sea, de antemano gracias...

PD: Utilizo Delphi 2010, Zeos, MySql, Windows 7...

[ecfisa]

Hola Lenny.

pero cuando habro el Form desde el MainMenu me repite el mismo Form por cada vez que ingreso y no lo coloca en primer lugar como deveria

No entiendo bién cuál es el problema, probé el código que adjuntaste y no abre dos veces el mismo MDIChild, pero como te digo no sé si ese es tu problema...

Si tenés mas de un MDIChild para llamar te convendría hacer un procedimiento para mostrarlos.
Ejemplo:

Código Delphi [-]
procedure TForm1.MostrarChild(AClass: TFormClass);
var
  i: Integer;
begin
  for i:= 0 to MDIChildCount -1 do
   if MDIChildren[i] is AClass then
   begin
     MDIChildren[i].BringToFront;
     MDIChildren[i].WindowState:= wsNormal;
     Exit;
   end;
  AClass.Create(nil);
end;

// Llamada
procedure TForm1.Button1Click(Sender: TObject);
begin
  MostrarChild(TForm2);
end;

Y en el evento OnClose de cada MDIChild poner:

Código Delphi [-]
 Action:= caFree;

Saludos.

[Lenny]

Seeee... a mi tambien me parece extraño, checare lo que me dices y te cuento, muchas gracias!!