[dec]

Hola,

Desde el primer formulario:

Código Delphi [-]
begin
  with TSecondFrm.Create(nil) do begin
    if (ShowModal() = mrCancel) then begin
      Self.Close();
    end;
  end;
end;

Algo así debería bastarte, ¿no?