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.