[DarthGomis]

Buenas

En resumen el problema que me ha surgido es que al salir de un modal, me salta un error y no se por qué.

Vamos al meollo del asunto, estoy realizando una app y en un momento dado necesito crear un modal para editar el contenido de un memo.

Captura.PNG

El problema es que al darle a Ok me salta este error.

Captura1.PNG

He estado buscando el por qué y no encuentro ninguna solución, el código que uso para salir del modal es este

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
begin
  ModalResult := mrOk;
end;

Y el boton que activa el modal y procesa la información es este otro

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
  nameData:string;
  numberData:integer;
  dateData:TDateTime;
begin
  with TForm2.Create(self) do
    try
      lineNumber := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.Selstart, 0);
      ShowModal;

      if Form2.ShowModal = mrOk then
      begin
        try
          nameData := Form2.Edit1.Text;
          numberData := StrToInt(Form2.Edit2.Text);
          dateData := StrToDate(Form2.Edit3.Text);
          Memo1.Lines[lineNumber] := ('N:'+nameData+
                ';D:'+IntToStr(numberData)+
                ';F:'+DateToStr(dateData));
        except
        ShowMessage('Wrong Data: Please insert correct values');
        end;
      end;
    finally
      Free;
    end;
end;

Igual es una tonteria pero estoy aprendiendo en Delphi y hay cosas que no entiendo muy bien.

Gracias de antemano. Si se necesita más información avisad y os la proporciono.