There are examples in a unit:
{Screen About the Program
Modified on :21/08/2003
Development by:DMA/DDS
Required units :InfAplic.pas e SuporteAplic.pas
}
unit DlgSobre;
interface
uses
Classes, Forms,InfAplic,SuporteAplic;
type
{Class to create screen about of application}
TDlgSobre = class(TComponent)
private
{save informations about aplication}
FInformacao: TInfAplic;
{save informations of support to application}
FSuporte: TSuporteAplic;
{description of application}
FDescricao:string;
{auto update from database}
FAutoAtual:boolean;
{window}
FrmSobre:TForm;
{method to open window of web}
procedure pAbrirPaginaWeb(const HtmlPag: String);
protected
{method to create the window about of application}
Procedure pMontar(Sender:TObject);
{method to call page of internet}
Procedure pChamInternt(Sender:TObject);
public
{method to activate the window}
Procedure pAtivar;
published
{information of application}
property Informacao:TInfAplic read FInformacao write FInformacao;
{suport of application}
property Suporte:TSuporteAplic read FSuporte write FSuporte;
{description of application}
property Descricao:string read FDescricao write FDescricao;
{auto update from database}
property AutoAtual:boolean read FAutoAtual write FAutoAtual;
end;
{register the component TDlgSobre in MPDFT}
procedure Register;
...
I put my comments on implementation before of method, procedure or function.