TObjectList.Add - проблемы

[JustKurt]

Доброго всем времени суток!
не могу решить проблему с кодом -

  EditList = class(TObjectList)
  private
    function GetItems(Index: Integer): TEdit;
    procedure SetItems(Index: Integer; const Value: TEdit);
  public
    property Items[Index: Integer]: TEdit read GetItems write SetItems; default;
  end;

........

procedure TForm1.btn1Click(Sender: TObject);
var
    i,b: integer;
begin
EditList.Create(true); 
b:=3;
for i := 1 to b do
begin
  Edit := TEdit.Create(nil);
  Edit.Parent := Form1;
  Edit.Top := 40 + 25*i;
  Edit.Left := 120;
  case i of
    1: Edit.Name := 'Surname';
    2: Edit.Name := 'Name';
    3: Edit.Name := 'Adress';
  end;
  Edit.Text := '';
  EditList.Add(Edit); // <- This form of method call only allowed for class methods
end;
end;

При компиляции ругается на "This form of method call only allowed for class methods"

В поиске/гугле был - ничего толкового не нашел..


UPD : Сорри, проблему решил - переписал код заново - все работает)

[baster128]

Я ее тут чуть поправил, а то в том виде она никак работать не хотела

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var Edit:array[1..3]of TEdit;
 EditList:TObjectList;
const
EdName:array[1..3]of string=('Surname','Name','Adress');

procedure TForm1.Button1Click(Sender: TObject);
var
    i,b: integer;
begin
EditList:=TObjectList.Create(true);
b:=3;
for i := 1 to b do
begin
  Edit[i] := TEdit.Create(owner);
  with Edit[i]do begin
  Parent := Form1;
  Top := 40 + 25*i;
  Left := 120;
  Name := EdName[i];
  Text := '' end;
  EditList.Add(Edit[i]);
end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 EditList.Free
end;

end.

[Пепел Феникса]

одно но, массива тут не надо, иначе смысл от списка обьектов(ObjectList)?

[JustKurt]

Да, это понятно, что не нужно - пытался вообще код запустить, преподаватель требует именно через массив)

procedure TForm1.Button11Click(Sender: TObject);
var i: integer;
begin
EditList := TEditList.Create(true);
EditList.Add(Edit1);
EditList.Add(Edit2);
EditList.Add(Edit3);
EditList.Add(Edit4);
EditList.Add(Edit5);
EditList.Sort(@CompareObjectName);
for i := 0 to EditList.Count-1 do
  begin
  EditList[i].Left := 120;
  EditList[i].Top := 60+i*30;
  end;
end;

 EditList[i].Left := 120;
  EditList[i].Top := 60+i*30;

Проблема - как задать правильно для элементов?
Необходимо создать произвольный набор компонентов ( едиты в данном случае ) и раскидать по форме , после выстроить их ровно через TObjectList... = |


UPD : Проблему снова решил ) Детальный поиск на форуме - уникальная вещь)

Верно будет

(EditList[i] as tedit).Left := 120;

и т.д.

Всем спасибо за участие и внимание!