Изменение значения метки из процедуры

[mactepmac]

1 вариант программы

unit tr;

interface

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

type
  TForm1 = class(TForm)
  Label1: TLabel;

    procedure FormCreate(Sender: TObject);
  private

    { Private declarations }
  public


    { Public declarations }


  end;

var
  Form1: TForm1;
     i: integer;
    k: integer;
    m: integer;
    Label1: TLabel;

implementation

{$R *.dfm}

procedure my_proc ();

begin
m:=5;
k:=2;
i:=k+m;

//Label1.Caption:=inttostr(i);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin


my_proc();

Label1.Caption:=inttostr(i);


end;

end.

2 вариант программы

unit tr;

interface

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

type
  TForm1 = class(TForm)
  Label1: TLabel;

    procedure FormCreate(Sender: TObject);
  private

    { Private declarations }
  public


    { Public declarations }


  end;

var
  Form1: TForm1;
     i: integer;
    k: integer;
    m: integer;
    Label1: TLabel;

implementation

{$R *.dfm}

procedure my_proc ();

begin
m:=5;
k:=2;
i:=k+m;

Label1.Caption:=inttostr(i);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin


my_proc();

//Label1.Caption:=inttostr(i);


end;

end.

Почему во втором варианте программы значение label1 не меняется? И как можно в процедуре изменить это значение?


--Не ругайте пианиста, он играет как умеет---

[Аватар]

Form1.Label1.Caption:=inttostr(i);
И уберите var Label1: TLabel;

[mactepmac]

Спасибо! Все получилось