Procedimiento completa de basura otras variables

[roman]

Como ya te han dicho, no se trata de que subas todo el programa, pero deberías poner más empeño en establecer información que pueda servir para ayudarte. Por ejemplo, yo veo muy raro que uses SetLength para una variable de tipo ShortString ya que éstas, si bien son de longitud variable, ocupan un espacio fijo en memoria de 256 bytes, y desconozco qué puede suceder si pasas un valor mayor a SetLength. Como no has dicho de dónde sale la variable CPassEmailLen (es más, ni siquiera sabemos si es una variable o una constante) pues tampoco podemos saber si por ahí viene realmente el problema.

// Saludos