Testa se um diretorio existe ou nao

Function IsValidDir(S: string): Boolean;
var
SaveDir: string;
begin
SaveDir := GetCurrentDir;
if SetCurrentDir(S) then
begin
Result := True
end
else
begin
Result := False;
end;
SetCurrentDir(SaveDir);
end;