[gralex]

Необходимо построить такую конструкцию:

Код:

procedure form.create();
begin
   ...
   For i:=1 to n do 
      ...
      procedure button1click();
      ...
      end;
   end;
end;

Это осуществимо? И если да, то опишите как можно подробнее какие переменные где и как описывать.
Можно, конечно, ссылками на учебники, но, все же, желательно как можно доступнее для понимания.
Заранее спасибо.

[eXplorer]

дак всё так и есть почти

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
button1.Click;
end;

-
это если процедура относится к объекту (ну тоесть является его метод) в данном случае является методом компонента Button1

в случае если процедура не является методом какого либо объекта её вызвать можно так (указав её имя):
пример :

Код:

procedure xxx;
begin
close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
xxx;
end;

[Thrasher]

Если объявлять так:

Код:

procedure TForm1.FormCreate(Sender: TObject);

 Var variable:SomeTypes

  procedure xxx; 
    begin
      close;
    end;

 begin
   xxx;
 end;

то тогда будут доступны все методы и свойства класса. Если вызывать так

Код:

procedure xxx;
begin
close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
xxx;
end;

то может возникнуть ошибка - неизвестно какой close вызывается

[NumLock]

Код:

unit Unit1;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure Close;
begin
  Form1.Label1.Caption:='Close';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Unit1.Close;
end;

[gralex]

Спасибо большое. Очень помогли разобраться. =)