Error al ejecutar editor de componentes

[elcigarra]

No soy amigo de aburrir con largos códgos, sin embargo como no sé donde puede estar la falla, intenté hacer un hipotético codigo (suficientemente corto) con el esquema que tanía programado en mi componente para ver si pueden descubrir algo. Imaginen un (inutil, por cierto) editor de botones standard de delphi. El form del editor, tiene un botón (button2) que fija el ancho de la ventana en 500 pixels (acá es donde daría el error).
ACLARO: No probé este editor y además lo armé de memoria en el block de notas de windows, ya que no voy a tener acceso a una máquina con Delphi hasta la noche, así que puede tener más errores. Lo importante es la idea.

 
unit ButtonEditor;
interface
 
uses
  Windows, SysUtils, Classes, {....etc, etc...}, DesignIntf, DesignEditors;
 
type
  TfrmButton = class(TForm)
	Button1: TButton;
	Button2: TButton;
	{.......}
	procedure Button2Click(Sender: TObject);
	{....... y manejo de otras propiedades del botón}
	 
  private
  public
  end;
 
 TButtonEditor = class(TComponentEditor)
	function GetVerbCount : integer; override;
	function GetVerb(Index : integer) : string; override;
	procedure ExecuteVerb(Index : integer); override;
	procedure ActualizarComponente(aForm : TfrmButton);
  end;
 
var
  frmButton: TfrmButton;
 
procedure Register;
 
implementation
 
{$R *.DFM}
 
// Form del Editor de propiedades		
//**************************************
procedure TfrmButton.Button2Click(Sender: TObject);
begin
  FrmButton.Width := 500;
end;
{....... y manejo de otras propiedades del botón}
 
// Form del Editor de propiedades		
//**************************************
function TButtonEditor.GetVerbCount : integer;
begin
  Result:=1;
end;
 
function TButtonEditor.GetVerb(Index : integer) : string;
begin
  Result:='E&dit...';
end;
 
procedure TButtonEditor.ExecuteVerb(Index : integer);
  procedure CopyButton(Dest, Source : TButton);
  begin
	Dest.Caption := Source.Caption;
	Dest.Width:=Source.Width;
	Dest.Height:=Source.Height;
  end;
Var
  aForm : TfrmButton;
begin
  aForm:=TfrmButton.Create(Application);
  try
	CopyButton(aForm.Button1, Component As TButton);
	if aForm.ShowModal = mrOK then
	begin
	  ActualizarComponente(aForm);
	  Designer.Modified;
	end;
  finally
	aForm.Free;
  end;
end;
 
procedure TButtonEditor.ActualizarComponente(aForm : TfrmButton);
  procedure GetButton(Dest, Source : TButton);
  begin
	Dest.Caption := Source.Caption;
	Dest.Width:=Source.Width;
	Dest.Height:=Source.Height;
  end;
begin
 GetButton(Component As Tbutton, aForm.Button1);
end;
 
procedure Register;
begin
  RegisterComponentEditor(TButton,TButtonEditor);
end;
end.

[delphi.com.ar]

¿Existe el objeto Application?

TfrmButton.Create(Application);

Mmmmmmm...

[elcigarra]

Si...
Según tengo entendido TMiForm.Create(Application) hace lo mismo que Application.CreateForm excepto porque con el primero setea automáticamente la form creada como la primera (o main form) de la applicación.

De todas formas insisto: el error lo da en la linea:
"FrmButton.Width := 500;", y entiendo que es un error que me indica que estoy tocando algo que no debo (en este caso el Form del editor). El problema es porqué "no debo"...

[delphi.com.ar]

Estas haciendo referencia a una variable que no has asignado: frmButton.

Código Delphi [-]
procedure TfrmButton.Button2Click(Sender: TObject);
begin
  Width := 500;
end;

Yo ni la declararía.

[delphi.com.ar]

Empezado por elcigarra

Si...
Según tengo entendido TMiForm.Create(Application) hace lo mismo que Application.CreateForm excepto porque con el primero setea automáticamente la form creada como la primera (o main form) de la applicación.

Si, pero el objeto Application depende del tipo de aplicación, y en este caso se trata de un editor de propiedades, y por lo que recien he visto el Application hace referencia al TApplication del IDE de Delphi.

Saludos!

[roman]

FrmButton jamás se crea.

En el método ExecuteVerb del editor creas una instancia de TfrmButton que asignas a la variable local aForm mientras que en TfrmButton.Button2Click intentas acceder a la variable global frmButton.

¿Porqué no simplemente en lugar de

FrmButton.Width := 500;

pones

Width := 500;?

// Saludos