ошибка доступа

[ego30]

Привет всем !

unit Unit1;
interface
uses
  Windows, ICQClient, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    ICQClient1: TICQClient;
    procedure FormCreate(Sender: TObject);
    procedure Proverka(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  M:array[1..7] of TICQClient;

implementation

{$R *.dfm}
procedure TForm1.Proverka(Sender: TObject);
begin
form1.Caption:='ddd';
end;
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 for i:=1 to 7 do
 begin
 M[i].Create(self);
 M[i].OnLogin:=Proverka;
 end;
end;
end.

Ошибка :
Access violation at address 00464b9f in module 'project1.exe'. Read of address 00000000
Как исправить такого рода ошибку ?

[Serge_Bliznykov]

опыта в программировании на дельфи немного?

просто ошибка классическая для новичка (сам пару раз в молодсти наступил)
нельзя вызывать метод конструктора Create у объекта, которые ещё не создан.
вместо M[i].Create(self);
надо

...
  M[i] := TICQClient.Create(self);
...

[ego30]

Сообщение от Serge_Bliznykov

опыта в программировании на дельфи немного?

просто ошибка классическая для новичка (сам пару раз в молодсти наступил)
нельзя вызывать метод конструктора Create у объекта, которые ещё не создан.
вместо M[i].Create(self);
надо

...
  M[i] := TICQClient.Create(self);
...

Спасибо ! =) Да я в первый раз создаю объекты во время выполнения программы =) просто протокол интересный нашел =) хочу брут свой написать icq )