Mil gracias a todos!
Muchos se confundían el .txt del archivo con la propiedad text del edit.
No fue ni una cosa ni la otra... la pavada que me faltaba era la concatenación es cierto pero igual no encontraba nada asique tuve que crear una carpeta "a" con un archivo "b.txt" hasta que lo enconrtó jejej...
Con Ustedes el Procedure...
Código Delphi
[-]
procedure TPrograma.BuscarClick(Sender: TObject);
var busca:string;
begin
busca:= coro.txt;
try
memo1.lines.LoadFromFile(busca);
Except
on EFOpenError do
messageDlg('El Coro NO está cargado',mtError,mbOKCancel,0);
end;
end;
Ahora el tema a resolver es por qué no me aparece el mensaje de error de la exepcion sino que se detiene la ejecución del programa con el EFOpenError.
Pero de nuevo mil gracias a todos.