Fórum Classe Tform #230600

Abraço Pessoal,

Gostaria de tirar uma duvida se possivel?

Gostaria de criar uma classe Tform para servir como caixa de dialogo em modo de exucução ( tipo MessageDlg). Tentei de tudo ao meu alcance.
Tambem tentei assim:

Ex:
procedure TForm1.Button1Click(Sender: TObject);
var
FrmDlg : Tform;
Bnt: Tbutton;
begin
FrmDlg := Tform.create(nil);
try
with FrmDlg do
Begin
heigth := 100;
width := 200;
end;
Btn := Tbutton.create(nil);
try
parent:= FrmDlg;
// propriedade do botão
FrmDlg.showmodal;
finally
Bnt.free;
end;
finally
FrmDlg.free;
end;

end;

Beleza. Assim o formulário funciona, mas não consigo aplicar um evento onclick no botão para altera a propriedade do formulário FrmDlg ( Com Fechar o FrmDlg ).

Abraço.

Grato,

Davi Marcos
:?: