Проблема с переменными..., Не понимаю смысл... Опции

[Vardes]

Подскажите в чём разница:

Код

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    end;
TInputVector1 = class(TObject)
  x1:real;
  end;

Код

[/code]
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    end;
TInputVector1 = class(TObject)
end;
  var
  Form1: TForm1;
  InputVector1:TInputvector1;
x1:real;

Не понимаю того,в чём разница,как обозначать переменную или как переменную класса или как var пар-р....

[Vardes]

Ну немного стал разбираться...Вот прогу небольшую написал,просто для тренировки классов,вычисляет логарифм четырёх элементов,но почему-то выдаёт ошибку...

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    end;
TInputVector1 = class(TObject)
  x1:real;
  procedure DoSum(var a:real);
  end;
  TInputVector2 =class(TInputvector1)
     x2:real;
     end;
    TInputVector3 =class(TInputvector2)
      x3:real;
        end;
      TInputVector4 =class(TInputvector3)
       x4:real;
        end;
  var
  Form1: TForm1;
  InputVector1:TInputvector1;
  InputVector2:TInputvector2;
  InputVector3:TInputvector3;
  InputVector4:TInputvector4;

  implementation

{$R *.dfm}
procedure TInputVector1.DoSum(var a:real);
begin
a:=ln(a);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     InputVector1.x1:=1;
     InputVector2.x2:=2;
     InputVector3.x3:=3;
     InputVector4.x4:=4;
     InputVector1.DoSum(InputVector1.x1);
     InputVector2.DoSum(InputVector2.x2);
     InputVector3.DoSum(InputVector3.x3);
     InputVector4.DoSum(InputVector4.x4);
     Memo1.Lines.Add(FloatToStr(InputVector1.x1));
      Memo1.Lines.Add(FloatToStr(InputVector2.x2));
       Memo1.Lines.Add(FloatToStr(InputVector3.x3));
        Memo1.Lines.Add(FloatToStr(InputVector4.x4));
     end;

end.