[Deiv]

Bueno he probado el código de droguerman y funciona, solo quedaría salir de dudas sobre mi segunda pregunta, pero el código Sinaloense no le entendí nada (por Novato)

Empezado por Sinaloense

En la forma que creas al presionar el botón en el evento onClose pon entas línea:
Código:
Action := caFree;

¿En cual evento, si aún no he creado mi Forma?. Si bien todo es creado en tiempo de ejecución, ¿donde entonces coloco esa parte del código?

Código Delphi [-]
function TForm2.existe_forma(AClase: string): Boolean;
var
 i:Integer;
begin
  for i := 0 to Screen.FormCount - 1 do
    if Screen.Forms[i].ClassName = AClase then
      Result := True
    else
      Result := false;
end;

Lo propio aquí esto de: TForm2.existe_forma, Yo entiendo que se coloca cuando está creada la forma, ya que Delphi me devuelve varios errores:
[Error] CreaForm.pas(26): Function needs result type
[Error] CreaForm.pas(31): Undeclared identifier: 'AClase'
[Error] CreaForm.pas(43): Undeclared identifier: 'existe_forma'

Código Delphi [-]
if not existe_forma('TForm3') then begin
    Form3 := TForm3.Create(Self);
    Form3.Show;
  end;

Lo propio aquí, no sé porque razón me sale un error RAISED, pero cuando cambio a (nil) ya no existe ese error.