unit DeCoding;

interface

uses
  dax.ru;

type
  TSite = class(WWW)
    procedure SiteCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Site: TSite;

implementation

{$R *.html}

procedure TSite.SiteCreate(Sender: TObject);
var
  s: string;
begin
   s := 'Мне нужны материалы по программированию на Delphi';
   if s = true then
      ShowMessage( 'Добро пожаловать на мой сайт' )
   else
      Exit;
end;

end.