判断表单样式为fsMDIChild的某表单是否存在的函数

function TMain.FindForm(caption: string): bool;
var
i:integer;
begin
 for i:=0 to main.MDIChildCount do
  begin
   // 通过标题判断社会窗体是否存在，如果存在，则恢复窗体，并返回true;如果不存在，则返回false

    if main.MDIChildren[i].Caption=caption then
     begin
      SendMessage(mdichildren[i].Handle, WM_SYSCOMMAND, SC_Maximize, 0);
      mdichildren[i].Enabled:=true;
      mdichildren[i].Show;
      mdichildren[i].SetFocus;
      result:=true;
      break;
     end
     else
      result:=false;
  end
end;