Para quitar los espacios en blanco al principio de una cadena también puede usar la función TrimLeft:
Si la versión de Delphi no tiene TrimLeft se puede usar Trim aunque esta última también quita los espacios en blanco al final de la cadena.
// Saludos