Создание окна при получение определенного пакета

[GHOST_Kasper]

Всем привет. Вопрос такой при получении определенного пакета должно создаваться окно это я сделал так:

*************************************************
procedure TForm1.CreateChildForm (const childName : string);
     begin
      NameForm[col] := TForm3.Create(Application); //создание формы на основе шаблона
      NameForm[col].Name:= 'NameForm'+IntToStr(col); //даём имя форме
      NameForm[col].Caption:= childName; //заголовок окна
      NameForm[col].Visible:= true;  //делаем её видимой
      col:=col+1;
     end;
*************************************************
{если пришел определенный пакет }
    if Copy(s,1,2) = '#L' then begin
     Delete(s,1,2);
     {Выделяем в to_ - кому оно предназначено}
     to_ := Copy(s,1,Pos(';',s)-1);
     Delete(s,1,Pos(';',s));
     {Выделяем в from_ - кем отправлено}
     from_ := Copy(s,1,Pos(';',s)-1);
     Delete(s,1,Pos(';',s));

     if (to_ = nickname)or(from_ = nickname) then
      begin
      for i:=1 to n do  begin
         if (NameForm[i].Caption = from_) or (NameForm[i].Caption = to_) then
           begin
             NameForm[i].Memo1.Lines.Insert(0,from_ + ' >  '+s);
             find_win:=true;
             Exit;
           end;
          find_w:=i;
         end;
        if not (find_win) then
         begin
          CreateChildForm(from_);
          NameForm[find_w].Memo1.Lines.Insert(0,from_ + ' >  '+s);
         end;
      end;
*******************************************************
//создание этой формы на стороне отправителя
procedure TForm1.N3Click(Sender: TObject);
begin
    CreateChildForm(ListBox1.Items[ListBox1.ItemIndex]);
end;

//шаблон формы
procedure TForm3.Button1Click(Sender: TObject);
var
 s:string;
begin
    s := '#L'+Caption + ';'; {добавляем
		спец.команду и адресат}
    s := s+nickname+';'+Edit1.Text;
    Form1.ClientSocket1.Socket.SendText(s);
    {И снова ждем ввода в уже чистом TEdit-е}
    Edit1.Text := '';
    ActiveControl := Edit1;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action:=caFree;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
 i:=col+1;
end;
end.

а задумка вот в чем. Когда приходят пакеты от нескольких приложений надо каждое открыть в отдельном окошке (шаблоне), мой пример работает только при первой посылке пакетов если закрыть эту форму тогда если снова что нибудь придет то это окошко выдает ошибку типа идет адресация на нулевой адрес. но окошко открывается и в нем сообщений больше не видно. подскажите что я делаю не так?

[alexBlack]

Дай весь исходник.

Список форм хранится в NameForm.
Создание новой формы идет в NameForm[col]
В FormCreate запоминается индекс новой формы почему то col+1,
т.е. ссылаемся на следующую форму в списке ?
С освобождением формы то-же проблемы. нужно не только закрывать форму, но и указывать NameForm[i] := nil
При очередном создании как-то проверять свободные элементы NameForm, а то список будет расти до бесконечности.

[Domovoy]

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
TForm3 := nil;
end;
И всё будет...

[GHOST_Kasper]

сейчас испробуем...
********************
вот нашел выход:

//закрытие и уничтожение созданой формы, а не как раньше всего шаблона...
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action:=caFree;
 NameForm[Tag]:=nil;
end;
***********************************************
//создание окна
  procedure TForm1.CreateChildForm (const childName : string);
     begin
      NameForm[col] := TForm3.Create(Application);
      NameForm[col].Name:= 'NameForm'+IntToStr(col);
      NameForm[col].Caption:= childName;
      NameForm[col].Visible:= true;
      NameForm[col].Tag:=col;
      data[col]:=childName;
      col:=col+1;
     end;

и как сказал alexBlack надо учитывать освободившие окна...
сейчас буду думать как.. идеи у кого нибудь есть? может без массива можно обойтись?

[GHOST_Kasper]

последний вопрос в этой теме:

NameForm[Tag] := nil;
после этого что будет в переменной Tag ??? Она тоже уничтожится?

[Sibedir]

и как сказал alexBlack надо учитывать освободившие окна...
сейчас буду думать как.. идеи у кого нибудь есть? может без массива можно обойтись?

TList может хранит ссылки на ваши формы.
TList.Add + TList.Delete + TList.Items + F1