Rotina em DELPHI para Método Construtor

unit Unit_ALX_Clientes;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;
type TFrm_ALX_Clientes = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
procedure alx_voi_Tratar_Valores_Estaticos();
public
{ Public declarations }
constructor alx_voi_Create(alx_obj_owner: TComponent);
end;
var
alx_int_conta_form: Integer;

implementation
{$R *.dfm}

//==============================================================================
constructor TFrm_ALX_Clientes.alx_voi_Create(alx_obj_owner: TComponent);
begin
inherited Create(alx_obj_owner);
self.alx_voi_Tratar_Valores_Estaticos();
//... realiza as inicializações ...
self.Show);
end;
//==============================================================================
procedure TFrm_ALX_Clientes.alx_voi_Tratar_Valores_Estaticos();
begin
alx_int_conta_form := alx_int_conta_form + 1;
self.Caption:= 'Sistema ALX: Listagem de Clientes [' + inttostr(alx_int_conta_form) + ']';
end;
//==============================================================================
procedure TFrm_ALX_Clientes.FormClose(Sender: TObject; var Action: TCloseAction);
begin
self:= nil;
end;
//==============================================================================
end.