TfrmAbout

type TfrmAbout = class(TForm)

protected

  FimLogo: TImage;

  FlblCopyRight: TLabel;

  FlblName: TLabel;

  FlblName2: TLabel;

  FlblVersion: TLabel;

  FlblBuiltFor: TLabel;

  FlblLicense: TLabel;

  FlblPleaseVisitUs: TLabel;

  FlblURL: TLabel;

  FbbtnOk: TBitBtn;

  procedure lblURLClick();

  function GetProductName;

  procedure SetProductName();

  function GetProductName2;

  procedure SetProductName2();

  function GetVersion;

  procedure SetVersion();

public

  class procedure ShowDlg;

  class procedure ShowAboutBox();

  constructor Create();

  property ProductName: string; [rw]

  property ProductName2: string; [rw]

  property Version: string; [rw]

end;

TfrmAbout

TObject