Con razon se cicla ¡¡¡
ahora si que la regaste mira
Código:
Case Lado Of
1: Cad:=''+Cad;
2: Cad:=Cad+'';
End;
no es asi si no
Código:
Case Lado Of
1: Cad:=' '+Cad;
2: Cad:=Cad+' '; //<-- osease es un espacio ' ' no ''
//osease '_' no '' donde _es espacio vacio
End
Ojo mucho ojo y cuentaselo al que mas confianza tengas
![Big Grin](http://www.clubdelphi.com/foros/images/smilies/biggrin.gif)