Normalmente, en delphi, la ejecución de instrucciones es secuencial, lo cual quiere decir que si tu ejecutas:
Código Delphi
[-]
LeerArchivo;
LeerArchivo;
la segunda llamada se ejecutará únicamente hasta que termine la primera, de manera que no debería tener problemas. Quizá si explicas más...
// Saludos