Вернуть несколько значений из MDI формы которая грузится из DLL ?

[spamer]

Вобщем закинул я MDI форму в DLL. На форме имеется 3 Edit'a и кнопка. Мене необходимо из этих Edit'в вернуть введенные значения в основную программу.
Я это пытался реализовать так: по нажатии кнопки на MDI форме вызываются функции которые бы возвращали значения Edit'в в главную форму. Но тут то и получилась у меня проблема, жму в проекте по кнопке, которая вызывает мои функции из DLL, первый раз MDI форма появляется, но нечего не возвращает из Edit'в. Жму второй раз - проект просто закрывается.

DLL:
var
  FAdd: TFAdd;    // MDI форма

  procedure ShowAddForm(Handle : THandle); export; stdcall;
  function ResEdit1 : String; export; stdcall;    //Функция для возврата значения из Edit1
  //Остальные функции для возврата пока не стал писать

...

function ResEdit1 : String;
begin
  Result := FAdd.Edit1.Text;
end;

procedure ShowAddForm(Handle : THandle);
begin
  Application.Handle := Handle;
  FAdd := TFAdd.Create(Application);
  FAdd.ShowModal;
  if FAdd.ModalResult = mrOK then
    ResEdit1;
  FAdd.Free;
end;

//---------------------//

exports
  ShowAddForm,
  ResEdit1;


Project:

...

  procedure ShowAddForm(Handle : THandle);external'Project1.dll';
  function ResEdit1 : String; external'Project1.dll';

...

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowAddForm(Handle);
Caption := ResEdit1;
end;

Вот собственно вопрос, как довести до ума то, что я написал, что бы MDI форма осталась в DLL и возвращала в главную форму(проект) значения из Edit'в ?
з.ы. старался объяснить ситуацию как можно точнее, но если чего не понятно в вопросе.....спросите я уточню, не надо пинать сразу в поиск(у меня от него уже в глазах двоится).

[Stilet]

А можно глянуть на весь проект? Или он дюже великий?

[spamer]

Вот еще одна проблема только что получилась. Раньше хоть как то форма показывалась, а шас ошибка вылетает.
Stilet, вот я прикрепил проект вместе с длл ,и туда положил скрин с новой ошибкой.

[s.Creator]

Посмотри сам внимательнее

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowAddForm(Handle);
Caption := ResEdit1;
end;

ShowAddForm(Handle); - вызываешь модально форму (и зачем тогда MDI? ), закрываешь ее и уничтожаешь.

Caption := ResEdit1; - пытаешься из уничтоженной формы что-то получить.

[spamer]

Вообщем вот код, который не хочет работать:

DLL:
var
  FAdd: TFAdd;

procedure ShowAddForm(Handle : THandle); export; stdcall;
function ResEdit1 : String; export; stdcall;

implementation

{$R *.dfm}

function ResEdit1 : String;
begin
  Result := FAdd.Edit1.Text;
end;

procedure ShowAddForm(Handle : THandle);
begin
  Application.Handle := Handle;
  FAdd := TFAdd.Create(Application);
  FAdd.ShowModal;
  if FAdd.ModalResult = mrOK then
    ResEdit1;
end;

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

...

exports
  ShowAddForm,
  ResEdit1;

Project:

...

  procedure ShowAddForm(Handle : THandle); external'Project1.dll';
  function ResEdit1 : String; external'Project1.dll';

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := ResEdit1;
ShowAddForm(Handle);
end;

end.

з.ы. насчет MDI......вобщем перепутал я названия с модальной формой.

Народ, как его заставить работать?

[s.Creator]

Например так попробуй

function ShowAddForm(Handle : THandle; var ResString : String): TModalResult;
begin
  Application.Handle := Handle;
  FAdd := TFAdd.Create(Application);
  FAdd.ShowModal;
  Result := FAdd.ModalResult
  if Result = mrOK then
    ResString := FAdd.Edit1.Text;
  FreeAndNil(FAdd);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s : string;
begin
  if ShowAddForm(Handle, s) = mrOK then
  Caption := s;
end;

[spamer]

s.Creator, все равно не хочет оно работать(((((((
Народ, ну у кого еще какие есть мысли по моему вопросу? Срочно надо, уже несколько дней пытаюсь сделать, а оно ниче не работает

[s.Creator]

Обращаю внимание - в случае передачи строк из dll необходимо присоединять модуль ShareMem и таскать BORLNDMM.DLL ( читайте примечание в dpr при создании проекта dll ).
Либо использовать FastMM4.
Prog.zip

[spamer]

s.Creator, спасибо.