Mi programa no responde mientras trabaja

[Sr_Sombrero]

Hola:
Puse una sección de código que está entre un "repeat" y un "until". Cuando se ejecuta funciona bien pero el programa no responde durante este lapso y la ventana se desdibuja si la muevo, cuando termina de ejecutarse ese código sigue funcionando normalmente. (uso Win98)

¿Como evito eso?
¿Serviría poner esa parte de código un otro unit ?

Saludos

-------------Codigo (por si les sirve verlo)---------------

Repeat

// suma 1 al offset de inicio

intNumeroArchivo:= (intNumeroArchivo) + 1;
strNumeroArchivoTmp:= IntToStr(intNumeroArchivo);

// agrega ceros segun el largo de la cadena para formar el nombre de archivo

if Length(strNumeroArchivoTmp)= 1 then
strNumeroArchivo:= '000000' + strNumeroArchivoTmp;
if Length(strNumeroArchivoTmp)= 2 then
strNumeroArchivo:= '000000' + strNumeroArchivoTmp;
if Length(strNumeroArchivoTmp)= 3 then
strNumeroArchivo:= '0000' + strNumeroArchivoTmp;
if Length(strNumeroArchivoTmp)= 4 then
strNumeroArchivo:= '000' + strNumeroArchivoTmp;
if Length(strNumeroArchivoTmp)= 5 then
strNumeroArchivo:= '00' + strNumeroArchivoTmp;
if Length(strNumeroArchivoTmp)= 6 then
strNumeroArchivo:= '0' + strNumeroArchivoTmp;

// terminamos de armar el nombre del archivo destino

strArchivoDestino:= (EdtFileNameDestino.Text) + (strNumeroArchivo) + '.exe';

copyfile(Pchar (EdtFileNameOrigen.Text), PChar (strArchivoDestino), true);

AssignFile(archivo,(strArchivoDestino));
Reset(archivo);
Seek(Archivo,(intNumeroArchivo));
Write(Archivo,bytcero);
CloseFile(Archivo);

until
intNumeroArchivo = intNumeroFinal;