[ecfisa]

Hola ivantj24.

Según entiendo queres una función que te muestre forms no modales en una aplicación SDI.

Función:

Código Delphi [-]
procedure TFMain.MostrarNoModal(AClass: TFormClass);
var
  i: Integer;
begin
  i:= Screen.FormCount-1;
  while (i > 0) and not (Screen.Forms[i] is AClass) do Dec(i);
  if Screen.Forms[i] is AClass then
    Screen.Forms[i].Show
  else
    AClass.Create(Self).Show;
end;

Ejemplo de llamada:

Código Delphi [-]
  MostrarNoModal(TForm1);
  MostrarNoModal(TForm2);
  ...

Un saludo.