Busca Directory

[Paulao]

Como se dice Directory en Español? Necesito hacer una funccion que traiga este subdirectory. Hizo asi, pero no estas completa. Que debo hacer para mi funccion funcionar?

function BuscaPasta(Path: String):String;
var
sBusca: TSearchRec;
begin
if FindFirst(Path,faDirectory,sBusca) = 0 then
Result := sBusca.Name;
end;

El subdirectory estara siempre en el Directory C:\SWEDA. Este Directory puede tener mas de uno(no deberia, pero no puedo creer en usuario), pero el Subdiretory que busco siempre impiezara con SWD, siempre:SWD + Numero de Fabricaccion del equipo.