又有问题

这个是dll文件里的函数：
function getdllform:string;stdcall;
var form:tform;
    edit:tedit;
begin
  form:=tform.Create(application);
  edit:=tedit.Create(form);
  edit.Parent:=form;
  edit.Text:='';
  form.ShowModal ;
  result:=edit.Text;
  form.Free;
end;这里调用dll里的getdllform函数。
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=getdllform;
end;主要运行目的是调用dll里的函数，创建一个form，在上面的edit上输入信息，关闭form后返回信息。
第一次按button1运行都没问题，但是再按button1，在关掉所创建的form时就会出错。
错误信息：
access violation at adress 00401BFA in module'project2.exe'.read of address FFFFFFFF.why ???