помогите Что я делаю не так?

[FaRRa]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
Procedure Examp1();
var
i:Integer;//Объявление локальной переменной
begin
i:=10;//Присваиваю переменной значение
end;

Procedure TForml.Examp2;
begin
Examp1; //Вызываем процедуру Examp1, написанную ранее.
end;


end.

[Вадим Мошев]

Что я делаю не так?

1. Вы не написали то, что вы хотите получить в результате решения.
2. Вы не написали то, что происходит у вас.
3. Вы не отформатировали код тэгом #

========================

Если вы думаете, что, вызвав процедуру Examp1, у вас i станет равно 10, то вы ошибаетесь. переменная i, как вы сами написали - локальная и она больше нигде не определена

[BDA]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure Examp2();
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Procedure Examp1();
var
  i: Integer; // Объявление локальной переменной
begin
  i := 10; // Присваиваю переменной значение
end;

Procedure TForm1.Examp2;
begin
  Examp1; // Вызываем процедуру Examp1, написанную ранее.
end;

end.

Согласен со всеми замечаниями Вадима Мошева.

[FaRRa]

а почему так в учебнике написана ?

[BDA]

"а почему так в учебнике написана ?" - Откуда же мы знаем, мы Ваш учебник не читали.
"Если вы думаете, что, вызвав процедуру Examp1, у вас i станет равно 10, то вы ошибаетесь. переменная i, как вы сами написали - локальная и она больше нигде не определена" - может быть это и есть пример на локальные переменные в учебнике.

[FaRRa]

способа большой