안녕하셔요 ?
무념입니다.

아래와 같은 함수를 하나 만들어 보도록 하겠습니다.

procedure FormDo(FormName: string);
var
  i: Integer;
  loop: Boolean;
begin
  i:=0;
  loop:=True;

  while loop do
  begin
    if (Application.Components[i] is TForm)and(Application.Components[i].Name=FormName) then
    begin
      (Application.Components[i] as TForm).Show;
      loop:=False;
    end;
    i:=i+1;
    if i>=Application.ComponentCount then loop:=False;
  end;
end;

// 온라인이라서 영 매끄럽지가 않군요...
   도움이 되셨기를...

지금까지 무념이었습니다.