Cómo cargar archivo .txt en memo

[onomatopeya]

Hola buenas, resulta que estoy intentando a ver si se me abre el contenido de un archivo.txt en una Memo. El método que estoy utilizando es el siguiente, me he declarado una variable privada en el formulario donde guardar el nombre del archivo en curso->fichProg de tipo AnsiString, la inicializo a vacío en el evento OnCreate del formulario principal (esto para guardar) y para cargar utilizo

Memo->Lines->LoadFromFile(fichProg);

Pero el problema es que al intentar abrir el archivo, me sale la excepción EFOpenError, y no sé cómo puedo solucionarlo. A ver si alguien puede ayudarme, gracias de antemano.