problema

[jovehe]

que crees tengo un pequeño problema si corro el programa al mandar al texto se queda trabado lo mande a correr linea por linea y ya no hace nada

entra al siglo
while not Table2.Eof do y se brinca a la linea
Table2.FieldByName('NumeroCheque').AsString);
y de ahi se va a la funcion y se queda atorado en laslineas

While Length(Cad) < LarCad Do
Case Lado of
1: Cad:=''+Cad;

no se que es lo que pase en verdad ojala me puedas ayudar de antemano gracias