[roman]

lledesma, una observación: en tu código

Código Delphi [-]
try
  myform.showmodal;
except
  myform.free;
end;

en lugar de except deberías usar finally:

Código Delphi [-]
try
  myform.showmodal;
finally
  myform.free;
end;

// Saludos