Savedialog Access Violation

[dmassive]

Buenos Dias!

Estoy haciendo algunas cosas con Delphi 7 y cuando quiero ejecutar un SaveDialog me da Access Violation:


No encuentro como solucionarlo, asi que adjunto los archivos del proyecto, que solo tiene un Formulario con un TBitBtn y lo demas va por codigo:

unitexterna2.dpr

Código Delphi [-]
program unitexterna2;

uses
  Forms,
  UnitMain in 'UnitMain.pas' {FormMain},
  UnitAccion in 'UnitAccion.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFormMain, FormMain);
  Application.Run;
end.

UnitMain.pas

Código Delphi [-]
unit UnitMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TFormMain = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

Uses UnitAccion;

{$R *.dfm}

procedure TFormMain.BitBtn1Click(Sender: TObject);
Var
   Accion : TClaseAccion;
begin
     Accion := TClaseAccion.Create;
     Accion.hacelo;
end;

end.

UnitAccion.pas

Código Delphi [-]
unit UnitAccion;

interface

Uses Dialogs;

type
    TClaseAccion = class
         SaveDialog1 : TSaveDialog;
         procedure hacelo;
    end;
    
implementation

procedure TClaseAccion.hacelo;
var
   URL : string;
begin
     URL := InputBox('Ir a URL', 'Ingrese URL completa', '');
     if URL = '' then Exit;

     if not SaveDialog1.Execute then Exit;
end;

end.

Al momento de llamar "SaveDialog1.Execute" salta la ecepcion, ¿Que estara pasando?

Muchas Gracias!