[vtdeleon]

Colega, Puedes usar esto:

Código Delphi [-]
procedure Tform1.Button1Click(Sender: TObject);
var
  I:integer;
begin
    for I:=0 to MDIChildCount-1 do
      if MDIChildren[i] is Tform2child then begin
        MDIChildren[i].Show;
        Exit;
      end;
      form2child:=Tform2child.Create(Application);
end;

Siendo form1=MDIFORM con un boton el cual llamara Form2child=MDICHILD