Hola.
En primer lugar, bienvenid@ al clubdelphi. Te recomiendo la lectura de la guía de estilo, donde están plasmadas las reglas que rigen estos foros, y que son de carácter obligatorio.
He editado tu mensaje para añadir la etiqueta [delphi], razón por la que ahora ves que se respeta la indentación y se resalta la sintaxis. Te recomiendo pulsar al botón de editar en tu mensaje para ver la manera en que se usa.
Luego comento que me parece que tu pregunta es un poco vaga. Es poco probable que alguien se tome la molestia de entender lo que hace tu código, con la poca información que das. Sobre todo después de que la pregunta, según se entiende, nada tiene que ver con el título del hilo.
En el futuro te recomiendo hacer preguntas mas específicas.
Finalmente te comento que la ejecución de la aplicación paso a paso puede ayudarte a ver donde se está tardando tu proceso, que supongo que el tema de la "optimización" viene por que pretendés reducir el tiempo que tarda.
Hasta luego.
