[[cHackAll]]

Bueno, le dí un vistazo rápido al código y me parece que hay dos posibles fallas, sin embargo me inclino a una de ellas… prueba el siguiente código y no dejes de contarnos como te va:

Código Delphi [-]
…
 
result := showModal = mrok;
if result then
 begin
  SetLength(Str, Length(Edit1.Text));
  Move(Edit1.Text[1], Str[1], Length(Str));
 end;

...