Con lo que te dijo Movarack (Ansipos) lo puedes solucionar:
Código Delphi
[-]
var
position: Integer;
cadena_path : String;
begin
cadena_path:='C:\carperta\subcarpeta1\subcarpeta2\tareas\';
position := ansipos('tareas', cadena_path);
delete(cadena_path,1,position);
Showmessage(cadena_path);
end;
No tengo delphi a la mano para probar el código, pero algo asi deberias aplicar...eso pudiera solucionar tu problema.
Saludos.