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...