problemas con el LoadFromFile

[sac]

ok aca va toda la explicacion.
Dentro de un form tengo un memo, un bitbtn, y un label y necesito tipear en el label el titulo de un coro para que cuando clickeo el boton busque el nombre ingresado, en un directorio y llevar la informacion al lines del memo tan simple y practico como eso.
Ésto es todo lo que tengo. Los Archivos son ".txt" uso el UpperCase, tengo todos los archivos en mayúscula, la ruta está correcta.
Se que el error debe ser una tontería pero yo no lo encuentro, espero me puedan ayudar y que ésta vez halla sido claro.
Éste es el procedure del Onclick.

procedure TPrograma.BuscarClick(Sender: TObject);
var busca:string;
begin
busca:=coro.Text;
try
presen.lines.LoadFromFile('c:\S.P.T.M\coros\busca.text')
Except
on EFOpenError do
messageDlg('El Coro NO está cargado',mtError,mbOKCancel,0);


end;
end;

El error que tira es el siguiente:
...EFOpenError with message 'Cannot Open file 'c:\S.P.T.M\coros\busca.text'. Process Stopped....

de paso me gustaría que me dijera si la exepcion está bien.
Perdon si las etiquetas no están bien usadasy por lo largo de la explicación
Gracias.