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