problema

[sanxpue]

Con razon se cicla ¡¡¡
ahora si que la regaste mira

Case Lado Of
  1: Cad:=''+Cad;
  2: Cad:=Cad+'';
End;

no es asi si no

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