unit Unit1;

 interface

 uses

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

   Dialogs, Menus, StdCtrls;

 type

   TForm1 = class(TForm)

     Button1: TButton;

     Edit1: TEdit;

     procedure Button1Click(Sender: TObject);

   private

     { Private declarations }

   public

     FInteger :Integer;

     FBool :Boolean;

     FDouble: Double;

     { Public declarations }

   end;

 var

   Form1: TForm1;

 implementation

 {$R *.dfm}

 procedure TForm1.Button1Click(Sender: TObject);

 var

   I: Integer;

 begin

   I := ;

   I := SizeOf(FInteger);

   ShowMessage(IntToStr(I)); //

   I := SizeOf(FBool);

   ShowMessage(IntToStr(I)); //

   I := SizeOf(FDouble);

   ShowMessage(IntToStr(I)); //

   I := SizeOf(Button1);

   ShowMessage(IntToStr(I)); //

   I := SizeOf(Edit1);

   ShowMessage(IntToStr(I)); //4

   I := SizeOf(Form1);

   ShowMessage(IntToStr(I)); //

   I := SizeOf(TForm1);

   ShowMessage(IntToStr(I)); //

   I := Self.InstanceSize;

   ShowMessage(IntToStr(I)); //

 end;

 end.