Unit6.Dfm

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TC = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

C: TC;

implementation

uses Unit4;

{$R *.dfm}

procedure TC.FormCreate(Sender: TObject);

begin

Label1.Caption:=Form4.T;

C.Print;

end;

end.

Unit7.dfm

unit Unit7;

interface

Var K,N,S : Real;

Kil ,Kil_vid_n: Integer ;

nm:String;

implementation

end.

Unit8.dfm

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, OleCtrls, SHDocVw;

type

TForm8 = class(TForm)

WebBrowser1: TWebBrowser;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.FormCreate(Sender: TObject);

begin

WebBrowser1.Navigate('http://drinkinform.com.ua/2010/12/novogodnyaya-noch-v-russkom-stile-8-prazdnichnyx-koktejlej-s-vodkoj/');

end;

end.