[Алексей1980]

что я делаю не так

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 // Edit1: TEdit; если задействовать то все равно не передает ok
implementation

{$R *.dfm}
Procedure Test;
begin
Edit1.Text:='ok';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Test;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Test;

end;

end.

при нажатии на кнопку и по таймеру Edit1.Text не присваивает значение через процедуру Test
если вписать Edit1: TEdit;
если не вписывать, компилятор ругается на Edit1
пробывал менять на TForm1.Test
получилось толко если сделать Test обработчиком обьекта как и TForm1.Button1Click но тогда ругается на процедуру Test
вобщем после Procedure Test; мне приходится пробовать на угад
Edit1 и . в этой процедуре не дает мне меню с быстрым выбором пунктов типа Text и т.д. думаю дельфи не может идентифицировать Edit1
но когда я его идентифицирую он мне уже ничего не говорит, все компилируется но не работает уже при нажатии кнопки и по таймеру