Замена диалога запроса имени пользователя

[Прик]

loginParams.Values['USER_NAME'] реально смотрит на адрес памяти, куда указывал объект dlg.edit1.text.

Предположение ложно.
Если посмотреть что такое Values[Index], то это всего лишь строка, а при присвоении значения строка не "смотрит на адрес", а копирует это значение.

Ошибка на методе Free из-за того, что вызов этого метода происходит в самой форме, которую хотят освободить.

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Free; //ошибка
end;

[raf999]

Ситуация на самом деле с точностью наоборот. Я вызываю free из form2 для form1:
procedure Tmen.IBDatabase2AfterConnect(Sender : TObject);
begin
con.free; //сon - это форма которую надо закрыть
end;

А вот тут как раз ошибки и нет, что close что free
procedure Tcon.BitBtn3Click(Sender: TObject);
begin
con.free; // кнопка закрытия формы
end;

freeandnil тоже не помог, а вот такая схема ошибок не выдает:
procedure Tmen.IBDatabase2AfterConnect(Sender : TObject);
begin
con:=nil;
con.free;
end;

[Прик]

А проблема тогда в чем? Если ни в одной, ни во второй "схеме" ошибок нет.

[raf999]

Проблема в том, что при закрытии формы con из формы men методом free появляется ошибка.
procedure Tmen.IBDatabase2AfterConnect(Sender : TObject);
begin
con.free; //сon - это форма которую надо закрыть
end;

Tcon.BitBtn3Click - это просто кнопка закрытия окна, без каких-либо доп. функций. Тут что free что close срабатывают нормально.


Вроде схема аналогично примеру, и если ошибка тут, то она должна быть и в приведенном выше примере.
Вот и хочу понять из-за чего такое происходит.

[Прик]

Видимо надо посмотреть чего в ваших исходниках твориться. Потому как у меня никаких ошибок при закрытии диалога нет. Да и откуда им взяться, если делается как в примере. Т.е. пример при закрытии формы не дает ошибок.